File No. S360-29 
Order No. GC33-2002-2 



Systems Reference Library 



IBM System/360 Conversion Aids: 

FORTRAN IV-to-PL/I Language Conversion Program 

for IBM System/360 Operating System 

Program Number 360C-CV-710 



The System/360 FORTRAN IV-to-PL/I Language 
Conversion Program (LCP) assists in the transi- 
tion to PL/I by converting FORTRAN IV programs 
into PL/I programs. The LCP is distributed in 
object module form for inclusion in the user's 
system library. 

The user should have an understanding of the 
System/360 Operating System and be familiar 
with the following publications: 

IBM System/360 FORTRAN IV Language / Form 

C28-6515 
IBM System/3 60 Basic FORTRAN IV Language , 

Form C28-6629 
IBM System/3 60 Operating System, PL/I (F) 

Programmer's Guide , Form C28-6594 
A Guide to PL/I for FORTRAN Users , Form 

C20-1637 
IBM System/360, PL/I Reference Manual , Form 

C28-8201 




Second Edition (January 1973) 

This is a revision of GC33-2002-1, It incorporates changes issued 
in the following Technical Newsletters » 

N33-7002 (dated October 4, 1968) 
N33-7004 (dated January 15, 1969) 
GN33-7007 (dated August 13, 1970). 

Specifications contained herein are subject to change from time to 
time. Any such change will be reported in subsequent revisions or 
Technical Newsletters. 

This publication was prepared for production using an IBM computer 
to update the text and to control the page and line format. Page 
impressions for photo-offset printing were obtained from an IBM 
1403 Printer using a special print chain. 

Copies of this and other IBM publications can be obtained through 
IBM Branch Offices. 

A form for reader's comments appears at the back of this publication. 
Address any additional comments concerning the contents of this 
publication to: IBM' Prance, Centre d' Etudes et Recherches, 
Programming Publications, 06610 - La Gaude, France. 



© Copyright International Business Machines Corporation 



CONTENTS 



INTRODUCTION . . 7 

Source Language 7 

Output Language 8 

Distribution of the LCP 8 

Sample Program 8 

System Requirements 8 

Control Information ..... 9 

General Description of the LCP 9 

Characteristics of FORTRAN Programs to be Converted 10 

LCP Actions 10 

Use of the Output Listing 10 

Performance 11 

Notation Used in This Document 11 

GENERAL PROBLEMS IN CONVERTING TO PL/I 13 

FORTRAN Mathematical Function Subprogram 13 

Prevention of Name Conflicts 13 

Arrangement of Arrays in Storage 14 

CONVERSION ACTIONS 15 

Data Set Terminology 15 

Form of Coding Examples 15 

General Considerations 16 

Blanks within Words 16 

Comments 16 

Elements of the Language 17 

Program Unit 17 

Statement Numbers 17 

Integer Constants 17 

Real Constants 18 

Complex Constants 18 

Logical Constants 19 

Literal Constants 19 

Hexadecimal Constants 19 

Subscripted Variables 19 

Arithmetic Expressions 19 

Logical Expressions 20 

Logical Assignment Statements . . 21 

Arithmetic Assignment with Truncation from REAL to INTEGER ... 21 

Control Statements 22 

Unconditional GO TO Statement 22 

Computed GO TO Statement 22 

ASSIGN and Assigned GO TO Statements 23 

Arithmetic IF Statement 23 

Logical IF Statement 24 

DO Statement 24 

CONTINUE Statement 25 

PAUSE Statement 25 

STOP Statement 25 

END Statement 26 

Specification Statements 26 

Predefined Specification . 26 

IMPLICIT Statement 26 

Explicit Specification Statement 27 

DIMENSION Statement 27 

COMMON Statement 27 

EQUIVALENCE Statement 28 

Common Variables Appearing in an Equivalence Statement 29 

Statement Functions 30 



FUNCTION Subprograms 30 

SUBROUTINE Subprograms 31 

ENTRY Statement 31 

RETURN Statement in a Subroutine Subprogram 31 

CALL Statement 32 

EXTERNAL Statement 32 

BLOCK DATA Subprogram 33 

DATA Initialization Statement 33 

DOUBLE PRECISION Statement . 33 

Service Subprograms . . , 33 

Input/Output Statements 34 

READ Statements 34 

PRINT Statement 36 

PUNCH Statement 36 

WRITE Statement 36 

FORMAT Statement 36 

Numeric Format Items 37 

Scale Factor 37 

Logical Format Item 38 

Character-String Format Item 38 

Generalized Format Item ..... 38 

Hexadecimal Format Item 39 

Literal Data and H-Format Code 39 

Control Format Items 39 

END FILE Statement 40 

REWIND Statement 40 

BACKSPACE Statement 40 

CONVERSION OUTPUT AND MESSAGES 41 

Listing 41 

Messages 41 

Output , 42 

APPENDIX A. CORRESPONDING FORTRAN AND PL/I BASIC SYMBOLS 43 

APPENDIX B. CONVERSION OF FORTRAN MATHEMATICAL FUNCTION SUBPROGRAMS . 44 

APPENDIX C. LCP RESTRICTIONS 47 

APPENDIX D. DISTRIBUTION OF THE LCP . 49 

Programs on Disk Pack 49 

Contents of the Disk Pack 49 

Creating the Load Module 49 

Programs on Tape , 50 

Contents of the Tape „ . 50 

Creating the Load Module ..... 50 

Using the Function LBLNK 51 

APPENDIX E. OPERATING PROCEDURES 52 

Executing the LCP 52 

Control Card Options , . . 53 

EXEC Card Options 53 

LCP Control Cards 54 

Executing the PL/I Target Program 54 

APPENDIX F. MESSAGES 55 

APPENDIX G: PREPARATION OF DATA 60 

APPENDIX H. SAMPLE PROGRAM 61 



TABLES 



Table 1 . Logical Data Sets Required by the LCP for a 

Conversion Run 8 

Table 2. Type and Length Specification Conversion 27 



INTRODUCTION 



The FORTRAN IV-to-PL/I Language Conversion Program, referred to in this 
publication as "the LCP," is a program provided by IBM to assist its 
customers in the transition from FORTRAN IV to PL/I. The LCP can be 
added to the use^s System/360 Operating System program library to help 
him convert his FORTRAN IV source programs into PL/I programs. The 
resulting PL/I program is referred to as the PL/I "target" program. 

The LCP does the following: 

• It recognizes and converts FORTRAN IV statements into PL/I state- 
ments having the same meaning and' effect. 

• It detects and flags FORTRAN IV statements that have no PL/I equiva- 
lents or that cannot be meaningfully or unambiguously translated 
into PL/I statements. 

• It produces an output listing of the PL/I program as well as mes- 
sages providing information on the conversion actions. The user may 
specify that the listing also contain the original FORTRAN IV 
statements. 

• It produces, when specified to do so by the user, the converted pro- 
gram on cards, or as card images on tape or on disk. 

In certain programs, limited manual changes will be necessary to make 
the generated PL/I program compilable and faithful to the FORTRAN IV 
source program. In such cases, the user will be guided by output- 
listing messages. 



SOURCE_LANGUAGE 

The LCP processes programs written in System/360 Operating System 
FORTRAN IV language. It will, therefore, process the output of the cur- 
rent FORTRAN II to System/360 Operating System FORTRAN IV Language Con- 
version Programs for the IBM 1401 (see IBM System/360 Conversion Aids: 
FORTRAN_II_Lanauaae_Conv^ Form C28-6 56 0) . 

Moreover, the LCP will convert FORTRAN IV source programs written for 
current IBM systems other than the System/360. When such source pro- 
grams are converted, however, the user should note the two following 
points: 

1. From the point of view of language, all FORTRAN IV source programs 
can be converted by the LCP, subject to the restrictions indicated 
in Appendix C. 

2. There is no guarantee that the converted programs will be correctly 
executed. This is due to differences in implementation between 
System/360 and other current IBM systems (storage allocation, mag- 
nitude of data, etc.). 
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OUTPUT_LANGUAGE 

The LCP converts source programs into System/360 Operating System PL/I 
language for compilation by the PL/I (F) compiler version 4 and the fol 
lowing versions. 



DISTRIBUTION OF THE LCP 



The LCP will be distributed in object module form for inclusion in 
user's system library. 



SAMPLE_PROGRAM 

The disk pack or the tape distributed by IBM will contain, in addition 
to the LCP, a sample program, written in FORTRAN. This program is 
described in detail in Appendix H. 



SYSTEM_RE£UIREMENTS 

The machine requirements depend on the type of run to be made: a con- 
version run or a link-editing run for generating the LCP load module. 

The minimum System/360 configuration required for a conversion run by 
the LCP is: 

• One System/360 Model 40 with 128K bytes of main storage. The LCP 
itself needs a minimum of 70K bytes to operate in a PCP or MFT 
environment. The 70K bytes include the Data Management Routines and 
buffers. To use the LCP with MVT, it is suggested that 6K be added 
to the SIZE chosen so as to obtain the REGION specification. 

• Standard instruction set 

• Decimal Arithmetic feature 

• Floating-Point Arithmetic feature 

• Minimum peripheral equipment required by the Operating System 

The logical data sets used by the LCP are shown in Table 1. Note 
that when these data sets are on DASD, they may be placed on the same 
volume as the system residence. 



Table 1. Logical Data Sets Required bv the TCP for a Conversion "un 

i~ ™ ' 1 ■ ' • - ' i ' * - ' ■' 



DATA SET 



FUNCTION 



DFVICF OPTIONS 



SYSIN 



Source input 



Magnetic Tape Unit, Car<i 
Reader, Direct Access 
Storage Device (DA^D) 



SYSIOFPP 



Message Output 



Magnetic Tape Unit, 
Printer, DASD 



SYSPPNT 



Listing Output 



Magnetic Tape Unit, 
Printer, D*SD 



SYSUT1 
SVSUT2 



Auxiliarv storage 
Auxiliarv Storage 



DASD 
DASD 



SYSPCH* 



Deck Output 



Magnetic Tape Unit, Card 
Punch r DASD 



*SYSPCH is reguired only for punched-carcl output (or card image 
on magnetic tape or DASD) of the converted program. 



For generation of the LCP load module, an additional 2^11 Disk 
Storage Drive or magnetic tape unit is reguired to run the distributed 
program. 

In order to generate the LCP load module and/or execute a conversion 
run, the Operating system must include the modules for the PL/T (F) com- 
piler and its library. 



CONTROL INFORMATION 



A conversion run requires control cards prepared bv the user, specifving 
which of the options provided by the LCP he has chosen. The control 
cards required and the options available are described in Appendix F. 



OF THE LCP 



The LCP is designed to do a maximum amount of conversion. It provides a 
number of options that permit the user to apply it effectively to a wide 
range of conversion needS4 

The program is particularly versatile in the following respects: 

• Messages in the output listing identify statements that cannot be 
converted and those that, once converted, may give incorrect results 
on execution. 

• In addition to the printed listing, the converted output may also 
appear on cards, magnetic tape, or DASD. 

• The PL/I program can be generated in either the 18- or the 60- 
character set, depending on the character set used in the source 
program. 

• Optionally, the FORTRAN source program can be listed. 

• The user can specify the size of main storaqe available in the 
machine used for conversion. 
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• A character code option (BCD or EBCDIC) is provided, which remains the 
same for input and for output. 



CHARACTERISTICS OF FORTRAN PROGRAMS TO BE CONVERTED 

A source program to be converted by the LCP must be error-free; that is, 
source program statements must conform to the specifications for System/ 
360 Operating System FORTRAN IV. 

The source program can be in the form of punched cards or of 80- 
character (blocked or unblocked) card images on tape or on DASD. 

Source programs should be converted by the LCP before any hand 
changes are made. This makes the best use of the LCP and avoids incor- 
rect conversion caused by coding errors. 

All FORTRAN source programs and subprograms are converted independ- 
ently, except BLOCK DATA subprograms, which must immediately precede the 
main program to which they belong. Within a single given batch of 
FORTRAN programs, the user need not insert new LCP control statements 
unless he wishes to change original LCP control information. 

LCP ACTIONS 

The LCP analyzes each statement of the FORTRAN source program and takes 
one of three types of action: 

• Hliii-.Q.2iiy.®£sion : The LCP converts the statement completely into a 
form acceptable to the PL/I (F) compiler. 

• £om£E§i2Hi_!±£k_!§.£!iiH9. : T ^e statement is converted into a form 
acceptable to the PL/I (F) compiler. However, the execution of the 
target program may give results that are not equivalent to those 
obtained by the execution of the FORTRAN-compiled source program. A 
warning message is issued. 

• No C onversion, with Warning: When a source program statement cannot 
be converted, a message identifies the statement and gives the 
reasons for non-conversion. 

A list of restrictions is given in Appendix C. 

USE OF THE OUTPUT LISTING 

The output listing from the LCP always contains the converted statements 
and all messages that have been generated. Optionally, it may also con- 
tain the source program statements. 

Using the output listing, the programmer can analyze the conversion 
and determine whether any manual changes are required. The necessary 
modifications can be made in the output deck. The deck is then ready 
for compilation by the PL/I (F) compiler. 
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PERFORMANCE 

On a System/360 Model 50 with 128K bytes of main storage, the average 
conversion time (T) for a FORTRAN program containing N cards is given in 
the following formula (in seconds) : 

T=55+37*S+0.75*N 

where S is the number of subprograms 

The time given is that which is applicable when the user has speci- 
fied the options SOURCE and DECK in his EXEC card, thus requiring the 
source program to be listed on SYSPRNT and the target program to be 
punched on SYSPCH. The devices to be used are as follows: 

2540 Card Read Punch for SYSIN 

1403 Printer for SYSPRNT 

2540 Card Read Punch for SYSPCH 

When SYSIN, SYSPRNT and SYSPCH are 2401 Magnetic Tape Units (Model 
3) : 

T=55+37*S+0.60*N 



NOTATION USED IN THIS DOCUMENT 

The object of this paragraph is to provide a simple way of describing 
the conversion process, and not a comprehensive theory of languages. 

In order to present the general form of a source language statement, 
as well as that of its target language equivalent, the following syn- 
tactic notation is used. 

A s^ntactic_variable of a language is used to represent one element 
of a particular set of elements of the language that have the same syn- 
tactic function. The range of values of a syntactic variable is there- 
fore the set of elements. 

In FORTRAN, for example, the statement numbers constitute a set of 
elements that have the same syntactic function. The corresponding syn- 
tactic variable has as its range of values the set of all possible 
FORTRAN statement numbers (each a sequence of from one to five decimal 
digits) . 

For the purposes of this publication, a syntactic variable is given a 
name f made up of a finite sequence of characters, which is a mnemonic 
representation of the corresponding syntactic function, e.g.: 

statement number 

In order to differentiate between sy.ntactic_ variables that are not 
part of the language and basic symbols of the language, syntactic 
variables are enclosed in corner brackets , e.g.: 

<statement number> 

In addition, some keywords of the language (GO TO, IF, etc.) are 
used in connection with syntactic variables. For example, the FORTRAN 
arithmetic IF statement is written as follows: 
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IF (<arithmetic expression>) <statement number>, <stateraent number>, 
<statement number> 

When it is necessary to specify different values of a given syntactic 
variable, numeral suffixes are used. In order to specify in the example 
shown above that the three statement numbers are different, the follow- 
ing notation is used: 

IF (<arithmetic expression>) <statement number 1>,<statement number 2> , 
<statement number 3> 

The operator conv is used to denote the result of the conversion of a 
FORTRAN syntactic variable into its PL/I equivalent: 

conv<FORTRAN syntactic variable> 

For example, the format of the FORTRAN unconditional GO TO statement 
and that of its PL/I equivalent are represented as follows: 

GO TO<statement number> and GO TO conv<statement number> 

The operator "conv" is sometimes omitted when there is no risk of 
confusion. 
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GENERAL PROBLEMS IN CONVERTING TO PL/I 



Conversion from FORTRAN IV to PL/I involves several general problems due 
to differences between the two languages. 

The sections that follow address these problems and note those which 
the LCP can solve. 



IOITBM-MATHEMATICAL_F0NCTISfl_SUBPEOGRAM 

The table in Appendix B shows the correspondence between the PL/I built- 
in functioD names and the FORTRAN IV mathematical function subprogram 
names. 

Normally, the name of each FORTRAN IV mathematical function subpro- 
gram in the source program is changed to the corresponding PL/I built-in 
function name, except when suppression of such conversion has been indi- 
cated in an LCP control card (see Appendix E) . For example, the func- 
tion IABS is normally converted to ABS wherever it appears. 



PREVENTION_OF_NAME_CONFLICTS 

To avoid name conflicts, the LCP provides an LCP substitution name in 
the following cases: 

1. COMMON block name 

The name is lengthened 7 characters by concatenating tha first 
characters of the word COMMON with the original common name (see 
the COMMON statement) . 

2. Other symbolic name 

The LCP checks each name written by the user against 

• a list of PL/I built-in function names which are different in 
FORTRAN or which are used for conversion by the LCP, namely, 
LOG, LOG10, TRUNC, MAX, MIN, FIXED, IMAG, BINARY 

• the operators of the 48-character set, if this option is 
selected, namely, GT, GE, NE, LT, LT, OR, AND, NOT, NL , NG, 
CAT, and PT 

If they match, a suffix <name-tail> is added to the name specified 

by the user. The value given to <name-tail> is as many characters 

of the string VARFUN as are reguired to make the substitution name 

seven characters long. For example, LOG will become LOGVARF, and 
GE will become GEVARFU. Optionally, a list of such source names 

and their corresponding LCP substitution names can be provided in 
the output listing. 
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ARRANGEMENT OF ARRAYS IN STORAGE 

The manner of storing arrays differs in FORTRAN and in PL/I. 

The FORTRAN convention is that the elements of an array are stored in 
ascending locations, with the value of the first subscript varying most 
rapidly, and that of each succeeding subscript varying less_rapidly_ than 
that of its predecessor. Thus, a two-dimensional array is stored column 
by^column in ascending locations. 

The PL/I convention is the inverse of that for FORTRAN: tha elements 
of an array are stored in ascending locations, but the value of the 
first subscript varies least rapidly, and the value of each subscript 
varies more rapidly than that of its predecessor. Thus, a two- 
dimensional array is stored row_by__row in ascending locations. 

To conform with the PL/I convention for array storage, the LCP makes 
the necessary conversion, as shown in the following example: 

Original 

DIMENSION A (3,4,5,6) 



;••} 



= A(1,2,3,4) 



Converted 

DlCLARE A (6, 5, 4,3) FLOAT BINARY; 



... I = A(4,3,2,1) ; 
... J 
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CONVERSION ACTIONS 



The components of the FORTRAN IV language are discussed in approximately 
the order in which they are described in the publication IBM_System/360 
Operating System FO RTRA N IV , Form C28-6515, i.e., under the following 
headings : 

• General considerations 

• Elements of the Language (Constants, Variables, Arrays) 

• Arithmetic Expressions 

• Logical Expressions 

• Assignment Statements 

• Control Statements (DO, GO TO, IF, etc.) 

• Specification Statements (COMMON, DIMENSION, EQUIVALENCE, etc.) 

• Statement Functions 

• Function and Subroutine Subprograms 

• Other FORTRAN statements accepted by the System/360 Operating System 
FORTRAN IV compiler 

• Service Subprograms 

• Input/Output Statements (READ, WRITE, FORMAT, etc.) 

The LCP does not convert certain FORTRAN statements that are incom- 
patible with PL/I. These statements are identified in the discussion of 
the category to which they belong. 

DATA SET TERMINOLOGY 

The terms "data set" and "data set reference number" are used in the 
discussion of input/output statements. In System/360 Operating System 
programming, the term "data set" refers to a named collection of data. 
A given data set may reside on one or more input/output units. A "data 
set reference number" refers to the data set itself, without regard to 
the input/output unit (or units) on which it resides. 

FORM OF CODING EXAMPLES 

Coding examples illustrate how the LCP converts a statement. The format 
of these examples is: 

Origina 1 

FORTRAN coding as it would appear in the source program 

Converted 

Coding as it would appear in PL/I output from the LCP 
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Note that the LCP output displayed or discussed in this manual is 
assumed to be in the 60-character set version of PL/I. Thus, a semico- 
lon is represented as it is on a standard typewriter keyboard, the rela- 
tionship "less than" by the character < , etc. Each example or discus- 
sion, however, remains valid with respect to the 48-character set ver- 
sion of PL/I when all necessary replacements are made. For example, the 
following statement in the 60-character set: 



A: IF X>Y THEN IF Z = W THEN IF W<P 
THEN Y = 1; ELSE P = Q; ELSE; 
ELSE X = 4; J : Z = 5; 



would read, in the 48-character code version: 



A.. IF X GT Y THEN IF Z = W THEN IF W LT P 
THEN Y = 1,. ELSE P = Q,. ELSE,. 
ELSE X = 4, . J.. Z = 5,. 



GENERAL CONSIDERATIONS 



BLANKS WITHIN WORDS 



FORTRAN IV permits embedded blanks. The LCP removes such embedded 
blanks except when they occur within literal constants. 



Orig.ina.1 

T TAL = A + B + 72 .01 92E-2 

Converted 
TOTAL=A+B+72 . 01 92E-2 ; 



COMMENTS 



All comments appearing in the FORTRAN program will be converted. The */ 
character sequence, where it occurs in the source program, will be con- 
verted into the *- sequence. Note that card columns 73 through 80 are 
not significant to the FORTRAN compiler and may be used for various pur- 
poses. The LCP ignores the contents of these columns and inserts an 
identification number in the PL/I target program. 

Original 

C ~ THIS IS A /*COMMENT*/ 

Converted 

/*' THIS IS A /*COMMENT*-*/ 
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ELEMENTS OF THE LANGUAGE 



PROGRAM UNIT 



A FORTRAN main program is converted to a PL/I main procedure. The fol- 
lowing PL/I statement is created first, even if BLOCK DATA subprograms 
are placed before the main program: 

(NOZERODIVIDE) : MAINPRO: PROCEDURE OPTIONS (MAIN) ; 

A FORTRAN subprogram is converted to a PL/I external procedure (see 
FUNCTION and SUBROUTINE statements) . 

The condition NOZERODIVIDE is created to simulate the effect of 
FORTRAN division by zero. 



STATEMENT NUMBERS 

If <statement number> has as its value a source program statement num- 
ber, the LCP converts it into the PL/I statement label: 

conv<sta tement number> 

where conv<sta tement number> is EXTLAB followed by <statement number> 
without leading zeros. 

Original 
02045"T=B**C 

Converted 

IXTLAB2 045:A=B**C; 



INTEGER CONSTANTS 

FORTRAN integer constants appear in the PL/I conversion in the same form 
as in the source text, after elimination of embedded blanks. 

Original 

5 2 31 

Converted 
523*1 

If FORTRAN integer constants appear as arguments passed to a 
subroutine or as arguments of a function, binary conversion is forced by 
using the built-in function BINARY at the time the function or subpro- 
gram is called. 

Original 
CALL~SUB(472) 

Converted 

CALL SUF(BINARY (472) ) ; 
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REAL CONSTANTS 

The following rules apply in the conversion of real constants: 

• Embedded blanks are suppressed. 

• D is changed into E. 

• Trailing zeros are added, where necessary, to double-precision cons- 
tants to make up the required seven significant digits. 

• The exponent EO is added as a suffix to decimal real constants with 
no exponent part. 

• The built-in function FLOAT is used to force the conversion of 
FORTRAN single-precision real constants containing seven significant 
digits into PL/I single- precision floating-point constants. 

Original 
3857. 1517 92 

Converted 
3857. 151792E0 

Original 

7 "7634 E- 7 

Converted 
. 7634E-7 

Original 

33671312. 507941D+63 

Converted 
336713127507941E+63 

Original 
1.234567 

Converted 

FLOAT (1.234567E0,6) 



COMPLEX CONSTANTS 

The same rules apply as for the conversion of real constants, with the 
following additions: 

• A comma followed by a sign is suppressed, otherwise it is replaced 
by a + sign. 

• The letter I is added as a final suffix. 

Original 

(-4. 7D+2, 1.973614 8) 

Conve r ted 
(-4.700000E+2+1.9736148E0I) 
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LOGICAL CONSTANTS 

A FORTRAN logical constant has one of two forms: 

.TRUE, or .FALSE. 

.TRUE, is converted to M'B, .FALSE, to «0'B. 

ri gi na 1 
a.and.Ttrue. 

Converted 
&&M'B~ 

LITERAL CONSTANTS 

FORTRAN literal constants are reproduced without change in the PL/I 
output. 

Original 

• DON»'T PRINT /X-COORDINATE' 

Converted 

•DON' T T~PRINT /X-COORDINATE" 

FORTRAN literal constants should not be passed as actual parameters 
to subprograms. Should this happen, however, a warning message will be 
issued to the user. 



HEXADECIMAL CONSTANTS 



Hexadecimal constants are not converted 



SUBSCRIPTED VARIABLES 

If the operator / or ** or a left parenthesis appears in a subscript, a 
warning message will be issued. It is the user's responsibility to 
check whether the converted subscript is correct, e.g., insert TRUNC for 
integer division, invert the order of subscripts for a subscripted vari- 
able appearing in a subscript. 



ARITHMETIC^ EXPRESSIONS 

FORTRAN arithmetic expressions undergo the following modifications: 

• Elimination of blanks embedded in constants and identifiers 

• Generation of LCP substitution names, where necessary 

• Conversion of the exponent D into the exponent E 
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• Addition of trailing zeros 

• Addition of the exponent part EO, where necessary 

• Use of built-in functions TRUNC, BINARY, FLOAT 

CEIL**(ABE+2)/7 .98D- 1 

Converted 

CEIL**7aBE+2) /7. 980000E-1 

The built-in PL/I function TRUNC is used to force the results of 
division of PL/I fixed-point expressions to be of the same precision as 
the results of division of FORTRAN IV integer expressions. 

The results of arithmetic expressions may differ from the expected 
results, owing to differences in the implementation of (1) precisions 
and (2) conversion of mixed characteristics. 

For exponentiation, FORTRAN IV produces type integer if base and 
exponent are integer items; this is not always the case with PL/I. Note 
that, in this case, the conversion of FORTRAN integer arithmetic expres- 
sions containing exponentiation is not always correct. 



L0j31C.AL_EXPRESSIQNS 

Owing to differences between FORTRAN and PL/I in the relative priorities 

of operators, the LCP always inserts an additional pair of parentheses 

around the converted form of the expression dependant on the FORTRAN 
.NOT. operator. 

Original 

(E+9.5D2.GE.2*E) .OR. (L.NE.3. 14E-1) 

Converted 
(E+S\500000E2>=2*E) | (L-, =3. 14E- 1) 

Original 

lA**F.6T.R00T) .AND.. NOT. (I.EQ.E) 

Converted 
( A**F>ROOT) 6t ((I=E)) 

Original 

a7gtT5**B. AND. . NOT. L. OR. N 

Converted 
I>D**bTT(L) |N 

Original 
.notTa.gt.b 

C onygjcted 
77I>B) 
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Original 

A.AND77NOT. X+Y*Z.LE. SIN(Z) .OR.P 

Converted 
A&77x+Y*Z<=SIN (Z) ) | P 



Orj.gj.nal 

ITANDT.NOT. (B.OR..NOT.C.EQ.E) 

Converted 

A&T1 (BTT (C=E) ) ) 



Original 
.notT1a+b) .gt.c 

Converted 
777ITb)>C) 



LOGICAL ASSIGNMENT STATEMENTS 



Original 
g^TtrueT 

Converted 
G=M~b7 



Original 

BOOL (I, J) = (A**F. GT. ROOT) . AND. . NOT. P 

Con v e r t e d 

BOOMJ, I) = (A**F>ROOT) & n (P) ; 

ARITHMETIC ASSIGNMENT STATEMENTS 



Original 
Y=C**(-Y)/.3D-5 

Converted 
Y=C**7-Y)"/.3000000E-5; 



A£ithmetic_Assianment_with_Truncatio 

The value of an expression of type REAL is obtained using impls mentation 
defined precision which gives an interval that includes the true value. 
If this interval contains an integer value, the result of truncation is 
undefined. 

For example: 

2.000001 will give 2 

for a true value of 2 

1.999998 will give 1 
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The above is valid when using a language for which there are several 
implementations. It is all the more applicable when going from one lan- 
guage to another with a different implementation defined precision, even 
if this difference is slight. 

A warning message will be issued. 



CONTROL STATEMENTS 



UNCONDITIONAL GO TO STATEMENT 



FORTRAN_S£ntax 

GO TO <statement number> 

PL/I_Sy.ntax 

GO TO EXTLAB<statement number); 



COMPUTED GO TO STATEMENT 

For each computed GO TO statement, the LCP creates a one-dimensional 
array of the same size as the argument vector of the GO TO, with ele- 
ments that are, in order, the statement numbers themselves. Thus, for 
the i-th GO TO statement taking the form shown, an array BRANCHi is 
'generated and a PL/I declaration is created giving the following 
information : 

• The dimension (n) of BRANCHi 

• The LABEL attribute for BRANCHi 

• The values of the elements of BRANCHi; that is, the converted state- 
ment numbers 

£ORTRAJJ_Sv.ntax 

GO TO (<statement number 1>, . . . ,<statement number n>) ,<index> 

where <index> has as its value an unsubscripted integer variable, with 
values ranging from 1 to n. 

PL/I_Sxntax 

<label part> IF(<index> LE n AND <index> GT 0) THEN GO TO 

BRANCHi (<index>) ,. 

where <label part> is empty or takes the form EXTLABm.. (To avoid con- 
fusion, the above example is shown using the 48-character set.) 

Thus, should the value of <index> fall outside the dimension of the 
array BRANCHi, the GO TO statement is not executed, and control passes 
to the following statement. 

Original 

2~ GO TO (25, 10,7) ,ITEM 
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£ OH ve r t e d _Xi 8 z2 h a r a c t e r )_ 

DECLARE BRANCH (3) LABEL INITIAL (EXTLAB25, EXTLAB10, EXTLAB 7) , 



EXTLAB..IF (ITEM LE 3 AND ITEM GE 0) THEN GOTO BRANCH0 1 ( ITEM) , . 



ASSIGN AND ASSIGNED GO TO STATEMENTS 



FORTRAN_S_Yntax 

ASSIGN <statement number>TO<unsubscripted integer variable> 



GO TO <imsubscripted integer variable>, (<statement number 1>,..., 
<statement number n>) 

PL/I_S^ntax 

<unsubscripted integer variable>=EXTLAB<statement number>; 



GO TO <unsubscripted integer variable>; 

Note: <unsubscripted integer variable> is given the LABEL attribute in 
a generated declaration unless this item appears in a specification 
statement in the FORTRAN program. A conflict will result when this item 
is used as an integer variable elsewhere in the program. Warning mes- 
sages to that effect are issued for the converted ASSIGN and assigned 
GOTO statements. 



ARITHMETIC IF STATEMENT 



FORTRAN_Sy.ntax 

IF (<arithmetic expression>) <statement number 1>, <statement number 2> , 

<statement number 3> 

PL/I_S£ntax 

IF (<arithmetic expression>) =0 THEN GO TO conv<statement number 2>; 
ELSE IF (<arithmetic expression>) >0 THEN GO TO conv<statement number 3>; 
ELSE GO TO conv<statement number 1>; 

If the label of the statement following the arithmetic IF statement 
is one of the three transfers, or if two of these three labels are the 
same, the conversion is optimized. 

Original 

~IF (A(J,K) **3-B) 10,4,30 
4 D=B+C 



30 C=D**2 



10 E=(F*B)/D + 1 
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C£M§££e£ 

IP (A(K, J)**3-B)<0 THEN GOTO E7TLAB10; 

ELSE IF(A(K,J)**VB)>0 THEN GOTO EXTLAB^O; 
EXTLAB4:D=B+C; 



LOGICAL IF STATEMENT 

FORTPAJLSintax 

IF (<logical expression^ <statement> 

JEL^I^Smtaj 

Note: If <statement> is STOt><integer part> and <integer part* is an 
integer constant, the PL/I Syntax is: 

IF(<logical expression*) THEN DO;<statement>; END 

DO STATEMENT 

FORTRAN, Syntax 

DO<statement" r ntnnberXDO var>=<initial>, <f inalXincrementV 

<statements within the range of the !)0> 

In either of the two cases illustrated below, <increment option> is 
empty if <increraent> is empty, or is *y <steo> if <increment> is 
,<step>. 

1, Both <initial> and <final> have unsigned integer constants as their 
values. 

a. <initial> does not exceed <final>. 

PL /I Syntax 

DO<DO var>=<initial>TO<final><increment option>; 

conv<statements within the range of the DO>: 

END; 

b, <initial> exceeds <final>* 

DO<DO var>=<initial>; 

conv<statements within the range of the DO>: 

END; 

2. Either <initial> or <final> has an integer variable as its value. 

P.L/I.Syflta? . 

DO<DO var>=<initial>TO MAX (<initial>,<final>) <increment ot>tion>; 

conv<statements within the range of the D0>; 

END; 

N.ote; Whereas, in specific cases, FORTRAN allows a transfer out of the 
range of an innermost DO loop and a transfer back into the range of the 
loop, PL/I does not. (The PL/I (F) compiler will diagnose these trans- 
fers at compilation time.) The user should therefore ensure tha+ his 
program contains no such transfer, and make the necessary hand changes. 
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CONTINUE STJWMII* 

fQRTBA N S?5tas 

<statement namber> CONTINUE 

pfc/j syn tax 

<label partXcontinue part> 

where <label part> is empty, <continue part> is : and if (statement num« 
ber> is empty* Otherwise, <label part> is ETTLABXstatement number>: 
and (continue part> is ; 



PAUSE STATEMENT 

FORTRAN Syntax 
PAUSE<aessage part> 

where <message part> is either empty, or has as its value an unsigned 
integer constant or a literal constant. Thus, there are three cases to 
consider: 

14 <nessage part> is empty. 

PL/I syntax 

DISPLAY(«PAUSE 00000 •) REPLY (NEYTSTA) ; 

2. <message part> is an integer constant. 

PL/I Svntgy 

DISPLAY ('PAUSE <integer constants) REPLY (NEYTSTA) ; 

3* <message part> is » (character stringV. 

El/S-Sintas 

DISPLAY ('PAUSE <character string>») REPLY (NEYTSTA) ; 

yot^ : The character variable NEYTSTA is declared with the CHARACTER 
attribute and a length of (60) and receives a string that is a message 
to be supplied by the operator* 

STOP STATEMENT 

FORTRAN Syntax 
STOP<integer part> 

where <integer part> is either empty or has as its value an integer con- 
stant. Thus, there are two cases to consider: 

1« <integer part> is empty* 

In a main program: 

PL/I Syntax 
RETURN; 

In a subroutine or function: 

PL/I Svntay 
STOP; 
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Table 2» 


Type and Length Speeificatii 


an Conversion 






1 \ 




r 


PIPE 






i i 


LOGICAL 


] INTEGER 
1 - 


« PEAL 
1- 


1 
1 


COMPLEX 1 


1 1 1 


BIT(1)» 


1 


1 

1 ll 1 ■ 1 > U * 1. 






1 2 | 




1 FIXED BINARY 
j 




1 




\ * 1 


BIT(1) » 


\ PITED BINARY 
1 (31) 


\ PLOAT BINARY 


I 




1 8 1 






| PLOAT BINARY 
I (5^) 




COMPLEX BIHARYf 


1 16 \ 

1 * 




• - 


■ 


i 


COMPLEX BINAPYI 
(5^)1 


t*In PL/I, " the result of a coaparison is a bit string of length one."j 
j (See the section "Comparison Operations" in the PL/I language speci- I 
j fications nanual.) 1 

t— - - .. _ . .. _. .,,■„■■■ ■ ,, . « 



IMPLICIT STATEMENT 



Original 

IMPLICIT INTEGER*2(A-H) , REAL*8(I-K), LOGICAL (C, M r N) 
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2. <integer part> is an integer constant. 
In a aain program: 



DISPLAY(«N») ; 

RETURN; 



In a subroutine or function 



DISPLAY(«N») ; 
STOP; 



END STATEMENT 



FQRTRAN Syntax 
END 



SPECIFICATIQN STATEMENTS 

The LCP collects and saves the information contained in each specifica- 
tion statement. Following completion of the source urogram scan, 
DECLARE statements will be generated, listing the variables referred to 
in all statements and giving their types, precisions, dimensions, 
initial values, etc. 

Note that FORTRAN integers represented in the target PL/I program 
with the precision attribute (15,0) will occupy four bytes in the PL/T 
I version tt- produced ob-ject code and two bytes in the later versions. 



PREDEFINED SPECIFICATION 

All variables, including the predefined FORTRAN variables, are declared 
bv the LCP r as shown in Table 2. 
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Assume that the only variables in the source program affected bv ^hi* 
statement are A, DE, J, and M. Tn this case, the conversion is done as 
follows: 

Converted 

DECLARF~A *IYED BINARY STATIC, DE FTYED BINARY STATIC,! FLOA* BTNARY(Sl) 

STATIC, M BIT (1) STATIC; 

Tn the case of a function name, the type will be declared in *he 
RETURNS attribute. 

If FUNCT is a function name, the conversion is as follows: 
DECLARE FUNCT ENTRY RETURNS (FIYED BINARY); 



EXPLICIT SPECIFICATION STATEMENT 

p.riaina.1 

TNTEGER*2 ITEM/76/, A (2, 2) /2*6, 2* 1/ 

Converted 

DECLARE~ITEM 'FIYED BINARY STATIC TNTTIAL (76) , A (2 ,2) FTYED KTNARY 

STATIC INITIAL((2)6, (2) 1) ; 

If the specification statement concerns a function name, the tvpe 
appears in its associated RETURNS attribute. 

Original 

REAL FUNCT*8 

Converted, 

DECLARE FUNCT ENTRY RETURNS (FLOAT BINARY (53)); 



DIMENSION STATEMENT 

DIMENSION A (10), APRAY(5,6,7) 

Converted 

DECLARE A (10) FLOAT BINARY STATIC, APR AY (7,6, 5) FLOAT BTNAPY STATTC; 



COMMON STATEMENT 

For each common block, the LCP creates a two- level structure of external 
scope, in which the first item of level 2 is a dummy element which 
serves to force alignment on a double word. 

In the case of unlabeled common blocks, the name of the malor struc- 
ture created is UNLABCM, and the common blocks are processed backwards. 
Care should therefore be exercised when initializing common block 
variables using DO loops. 

In the case of labeled common bloc>s, the name of the malor structure 
created will be seven characters in length, and will be made up by con- 
catenating the first n characters of the word COMMON to the oriqinal 
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common label, where n=7- (character length of the oriainal labpl) . •"he 
common label ST, for example, Is converted into Stco**o. 

CO^HO>l A,B,C/R/D,E/ST/F(10)//G,H/SI/I,J/R/o//W 

Converted 

DECLARE~1 STCOMMO ETERNAL, 

2 DT|MIT' EH FLOA* FTNAPV(SI), 
2 F(10) RLOA* RIMAR V , 
"> I FIXFD BINARY (11) , 
2 J »ITE!> BINA""(11) ;■ 

DECLARE 1 RCOMWON FXTFRflAL, 

? DTW'EN FLOA' 1 ' BTNAPV(5"*), 
2 D FLCAT BT*lAR* r , 
2 E FLOAT RT»jhry, 
2 P FLCAT BINAR V ; 

DECLARE 1 UNLABC* EXTERNAL, 

2 DTJMTTEM FLOA* BTM^ Pv (5"») , 

2 A FLOAT BINARY, 

2 B FLOA* BTNAR V , 

2 C FLCAT BINARY, 

2 G FLOAT BTNAPY, 

2 H FLOAT BINARY, 

2 W FLOAT BINARY; 

Tn version U, because of + he implementation of + he PL/T (V) compiler, 
the conversion of FOP^pan inteqer constants two bvtes in length will 
result in incorrect addressing. ^hf user will therefore have *o ma Vo 
the necessary corrections. 

Similar inconveniences will appear in the conversion of logical da*a 
and may appear for elements with the CHAPAC'^'R attribute. 

A warning message will be issued. 



EQUIVALENCE STATEMENT 



In the followincr example: 

DIMENSION A (1*5) ,C(20) 

EQUIVALENCE (* (2) ,B,C(12) ) , (D,E,F) , (A (15) ,G) 

each of (A (2) ,B, C(12) ) and (D,E,F) and (A (15) ,G) for* an eguivalpp.ee 
group. 

Furthermore, (A(2) ,B,C(12) ) together with (A(15),G) form an "eouivalence 
chain," since B, C(12), and G are made eguivalent to an element of the 
array A. The group (T>,E,t) on its own also forms an eauivalence chai", 
since the elements D, F, and F are not made eguivalent to any other 
element. 
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For each equivalence chain -- the j-th, say -- a one-dimensional 
array, EQTJBLK1, is created. This array is placed within a structure to 
force alignment on a double word. 

Each element of the equivalence chain is placed in a two-level struc 
ture defined using EQUBLK;], and made up of: 

• A dummy element containing the position within the block 

• The element itself, with its attributes 
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Note: In the interests of maximum efficiency, the method of conversion 
shown here takes advantage of the facility offered by the PL/I (F) com- 
piler whereby, under certain circumstances, the attributes of the 
defined item may differ from those of the base identifier (see "Examples 
of Defining" in Section I of the PL/I reference manual) . 

Original 

DIMENSION A(10) ,B(5,8) ,C(4,6,9) 

EQUIVALENCE <A (3) , B (2 ,3) ,C (3 ,4 , 5) ) 

Con vert ed : 

DECLARE~"T EQUBLK01 STATIC, 

2 DUMITEM FLOAT BINARY (53) , 

2 DUMBASE(216) FLOAT BINARY; 
DECLARE 1 ITEM001 DEFINED EQUBLK01, 

2 DUMITEM (2) FLOAT BINARY, 

2 C (9,6,4) FLOAT BINARY, 
1 ITEM002 DEFINED EQUBLK01, 

2 DUMITEM (101) FLOAT BINARY, 

2 B(8,5) FLOAT BINARY, 
1 ITEM003 DEFINED EQUBLK01, 

2 DUMITEM (110) FLOAT BINARY, 

2 A (10) FLOAT BINARY; 

Restrictions^ 

• The PL/I (F) compiler does not accept initial values for DEFINED 
items. Initialization must, therefore, be done by the user. 

• See "COMMON Statement." 



COMMON VARIABLES APPEARING IN AN EQUIVALENCE STATEMENT 

The one-dimensional array EQUBLKj is not created, and each element of 
the equivalence chain is placed in a two- level structure defined using 
the common name. 

When the equivalence chain extends the size of the common block, a 
level 2 dummy one-dimensional array is added to the end of the common 
block. 

Original 
COMMON~A,B,C 
DIMENSION D (3) 
EQUIVALENCE (B,D(1)) 

Converted 

DlCLARE 1 UNLABCM EXTERNAL, 

2 DUMITEM FLOAT BINARY (53), 

2 A FLOAT BINARY, 

2 B FLOAT BINARY, 

2 C FLOAT BINARY, 

2 DUMITEM2(1) FLOAT BINARY; 
DECLARE 1 ITEM001 DEFINED UNLABCM, 

2 DUMITEM (3) FLOAT BINARY, 

2 D (3) FLOAT BINARY; 

Restrictions: See "EQUIVALENCE statement." 
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STATEMENT-JUNCTIONS 

IORTRAN_Sxntax 

<func> (<arg1>,. . . ,<argn>) =<expression> 

PL/I Syntax 

<func>: PROCEDURE (<arg1>, . . . ,<argn>) conv<type>conv<lengspec>; 

DECLARE<arg1>conv<type>conv<lengspec>, 

. . . , <argn>conv<type>conv<lengspec>; 

RETURN (<expression>) ; 

END; 

where conv<type> and conv<lengspec> are empty if <func> does not appear 
in a specification statement. 



FUNCTION_SUBPROGRAMS 

FORTRAN Syntax 

<type>FUNCTION<func><lengspec> (<arg1>, . . . ,<argn>) 

<func>=<expression> 

RETURN 

• • • 

END 

where <type> and <lengspec> are optional. 

PL/I_Sy_ntax 

(NOZERODIVIDE) :<f unc> : PROCEDURE (<arg1>, . . , <argn> ,<f uncXname tail>) ; 

<func><name tail>=<expression> ; 

• • • 

RETURN; 

END; 

Note that no attempt is made by the LCP to simulate a FORTRAN IV call 
by value; that is, a call by value of a FUNCTION or SUBROUTINE subpro- 
gram formal parameter is treated as a call of that parameter by name. 

Note_J[: <func><name tail> is an additional parameter, created by the 
LCP, that simulates the effect of a FORTRAN function call, thus taking 
advantage of the facilities of the PL/I (F) compiler. The value given 
to <name tail> is as many characters of the string VARFUN as ace 
reguired to make the parameter name seven characters long. This para- 
meter is declared according to the predefined specification or according 
to the <type> or <lengspec> specified (see Table 3) . 

If <func> itself is replaced by a substitution name, the procedure and 
the additional parameter have the same name (see "Prevention of Name 
Conflicts") . 

Note_2: The user should keep in mind that FORTRAN IV and PL/I do not 
handle adjustable dimensions in the same manner. In PL/I, the dimen- 
sions of an array passed as argument are those of the calling program. 

Note_3: The number of dimensions of an array used in the list of para- 
meters must be equal to that of the corresponding argument. 
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SUBROUTINE SUBPROGRAMS 



Original 

SUBROUTINE SUB (X, *,/Y/, Z, *, R,/S/, *) 

Converted 
(NOZERODIVIDE) : SUB: PROCEDURE (X, RETURNO 1 , Y, Z , RETU RN02 , R, S, RETURN03) ; 

Note: For conversion of the asterisks, see "RETURN Statement." 

Original 
SUBROUTINE SETUP 

Converted 
(NOZERODIVIDE) : SETUP : PROCEDURE; 

A^ Jiis tab le_D i me n si o ns : See Note 2 under "Function Subprograms" above. 

Array__as_Par ameter : See Note 3 under "Function Subprograms"above. 



ENTRY STATEMENT 

Since initialization of parameters at primary and secondary entry points 
of a PL/I procedure is not generally performed in the same manner as in 
FORTRAN, conversion of each ENTRY statement will take place, but a warn- 
ing message will be issued. 

FORTRAN_Sy_ntax 

ENTRY <entry name><arglist> 

PL/I Syntax 

<entry name>: ENTRY conv<arglist>; 

where : 

conv<arglist> takes exactly the same form as in the SUBROUTINE state- 
ment if the ENTRY statement appears in the body of a SUBROUTINE subpro- 
gram, or the same form as in the FUNCTION statement if the ENTRY state- 
ment appears in the body of a FUNCTION subprogram. 



RETURN STATEMENT IN A SUBROUTINE SUBPROGRAM 

FORTRAN_S^ntax 
RETURN<index>~ 

where <index> is empty or has as its value an integer constant or an 
integer variable. If <index> is empty, then the converted statement is 
RETURN; 

If <index> has an integer value, or an integer variable value, then a 
DECLARE statement is created which takes the form: 

DECLARE RETARAY (p) LABEL, RETURN01 LABEL ,..., RETU RNp LABEL; 

where p is the maximum number of * characters appearing in the 
SUBROUTINE or ENTRY statement parameter lists. 
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In addition, the RETURN <index> statement is converted to: 

GC TO RETARAY (<index>) ; 

Initialization of RETARAY is performed at the primary entry point as 
follows: 

GO TO EXTLABS; 

RETARAY(1) : GO TO RETURN01; 

• a • 

RETARAY (p) : GO TO RETURNp; 
EXTLABS: ; 

The conversion shown takes advantage of the alternative method avail- 
able for the initialization of elements of non-static variable arrays 
(see the PL/I language specifications manual, chapter 4, section 
entitled "Initial Attributes"). 



CALL STATEMENT 

FORTRAJ_Sy.ntax 
CALL<sbrtn><arglist> 

£LZI_£iy_ntax 

CALL<sbrtn> conv<arglist>; 

where conv<arglist> is empty if <arglist> was empty, or takes the form 
<arglist> if no statement number appears in <arglist>. 

Otherwise, if &<statement number> appears, it is converted to: 

EXTLAB<statement number> 

Note that FORTRAN literal constants should not be passed as actual 
parameters to subprograms. In the event of this happening, a warning 
message is issued. 

The name of the PL/I equivalent of certain FORTRAN mathematical func- 
tion subprograms cannot be passed as an argument. The PL/I built-in 
function names which cannot be used as arguments are: FIXED, ABS, MOD, 
REAL, MAX, MIN, FLOAT, IMAG, TRUNC, COMPLEX, and CONJG. For other PL/I 
built-in function names passed as arguments, the user must specify the 
ENTRY attribute in order to describe their entry points properly. 

A r r ax_as _.Pa r a me te r : See Note 3 under "Function Subprograms"above. 



EXTERNAL STATEMENT 

FQRTRAN^Syjitax 
EXTERNAL<sbpgml>,. . . ,<sbpgmp> 

PL/I_Sy_ntax 

DECLARE<sbpgm1>ENTRY RETURNS (<type><length>) , . . . , <sbpgmp>ENTRY RETURNS 

(<type><length>) ; 
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BLOCK DATA SUBPROGRAM 

FORTRAN Syntax 
BLOCK DATA 

• • • 
END 

PLZI_Syjntax 

BEGIN; 

• ■ « 

END; 

All BLOCK DATA subprograms must immediately precede the main program to 
which they belong. 

DATA INITIALIZATION STATEMENT 

Initial values appearing in a DATA statement are placed in the 
INITIAL attribute of the corresponding variables. 

When the initial values are literals, the corresponding variables are 
declared as CHARACTER and must remain so throughout the program. 

Note: Since the PL/I (F) compiler does not accept initial values for 
DEFINED items, the initialization of variables in EQUIVALENCE statements 
must be done by the user. 

DOUBLE PRECISION STATEMENT 

FORTRAN_Sy.ntax 

DOUBLE~PRECISION <var1 Xdim1 >, . . . , <varp><dimp> 

where <vari> has as its value a variable, array, or function name, and 
where each <dimi> is either empty, or has as its value a subscript list 
in parentheses. 

PL/I Syntax 

DECLARE<var1Xdim1>FL0AT BINARY (53) STATIC,.. . , <varpXdimp>FLOAT 

BINARY (53) STATIC; 

If <varj> is a function, the specification is given by RETURNS 
(<type>) . 

SERVICE SUBPROGRAMS. 

If a call to any of the following subprograms: 

SLITE, SLITET, OVERFL, DVCHK, DUMP, PDUMP 

occurs in the source program, it remains unchanged, but the LCP provides 
no corresponding external procedure 

A call to the FORTRAN EXIT subprogram is converted directly to STOP, 
unless the subprogram name EXIT is followed by <arglist>. In this case, 
the converted statement takes the following form: 

CALL EXIT(conv<arglist>) ; 

A warning message is issued. 
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INPUT,/OUTPUT_STATEMENTS 

Sequential input/output statements only are converted. 

READ STATEMENTS 

The LCP processes each of the three basic forms of the READ statement. 
The following syntactic variables are used in the discussion of READ 
statement conversion: 

• <data set ref no>, which has as its value an unsigned integer con- 
stant or variable representing a data set reference number 

• <formlist name), which has as its value the statement number or 
array name of the FORMAT statement describing the data to be read, 
or a NAMELIST name 

• <end err part>, which takes the form <end partXerr part>, or <err 
partXend part> 

where : 

<end part> is empty or takes the form: 

, END = <end statement no> 

<err part> is empty or takes the form: 

, ERR = <err statement no> 

• <list part>, which is empty, or is a list of variable or array names 
that may be indexed and incremented 

Note: <data set ref no> is converted into FT<data set ref no>F01 

For each of the three basic forms of the READ statement, the LCP pro- 
cesses the <end err part>, when present, as follows: 

If END=<end statement no> is present, the LCP, just before converting 
the READ statement, generates the ON-condition statement: 

ON ENDFILE(FT<data set ref no>F01)GO TO EXTLAB<end statement no>; 

If ERR=<err statement no> is present, the LCP, just before converting 
the READ statement, generates the ON-condition statement: 

ON TRANSMIT (FT<data set ref no>F01)GO TO EXTLAB<err statement no>; 

In addition, if <end err part> is present, the LCP, immediately after 
the converted READ statement, generates the ON-condition statement: 

ON<end err cond> (FT<data set ref no>F0 1) SYSTEM ; 

where <end err cond> is either ENDFILE or TRANSMIT. 

If <formlist name) has the format <namelist name> associated with a 
NAMELIST statement, the LCP must process a statement of the form: 

NAMELIST/<name 1>/<vararray list 1>/.../<name n>/<vararray list n> 
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where <namelist name> is a <name i>, and <vararray list i> is a list of 
variable or array names associated with <narae i>. 

For each <namelist name), the LCP creates a table of the associated 
variable and array names to be referred to via the <namelist name> in a 
subsequently generated GET statement. 

Note: If <formlist name> is an array name referring to a FORMAT state- 
ment, or if <data set ref no> is an integer variable, conversion does 
not take place and a warning message is issued. 

Form_READ (<data set ref nqXnamelist nameXend err part>) 

PL/I Syntax 

GET FILE(FT<data set rer no>F01 ) DATA (<vararray list i>) ; 

A warning message is issued after conversion. 

Note: In PL/I, no search is made for a specific name list. It is 
therefore the user's responsibility to ensure that the data is arranged 
in the correct sequence. 

Form_READ (<data set ref noXformat nameXend err part>) <list part> 

PL^I_Sy_ntax 

GET~"FILE7FT<data set ref no>F0 1 ) EDIT (conv<list part>) (R ( conv<f orma t 

name>) ) ; 

Source program variables within I/O lists may be indexed and incre- 
mented in the same manner as variables in a DO statement; the LCP treats 
them identically. 

If the <list part> of the READ statement contains indexed I/O lists 
and/or arrays a warning message is issued. If the FORMAT statement 
referred to contains literal data or an A- or H-format code, conversion 
of the literals or of the A- or H-format codes affecting the elements of 
the list included in and following the first array or indexed I/O list 
is incorrect. 

Oriqinal 

DIMENSION A(10),B(10) 

READ (5, 100) (A (I) ,B (I) ,1=1,10) 
100 FORMAT (•A=« ,E12.5,«B=« ,E12.5) 

Converted (with warning) 

DECLARE A (10) FLOAT BINARY STATIC ,B (1 0) FLOAT BINARY STATIC; 
GET FILE (FT05F01) EDIT ( (A (I) , B (I) DO 1=1 TO 10)) 
(R(EXTLAB100)) ; 
EXTLAB1 00 : FOR MAT (COLUMN (1) , A (2) , E ( 1 2, 5) , A (2) , E (1 2 , 5) ) ; 

Form READ (<data set ref no>) <list> 

Since binary data cannot be directly transmitted in PL/I in the same 
manner as in FORTRAN, statements of this type are not converted; they 
are, however, identified by messages. 

Zo£l!L_KEAD_<format_name> i ^ist_part> 

EL/I_.Sy.ntax 

GET FILE (SYSIN) EDIT (conv<list part>) (R (conv<f ormat name>) ) ; 
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original 

READ 5,~I 

5 FORMAT (15) 

Converted 

GET~"fIlIT(SYSIH) EDIT (I) (R(EXTLAB5) ) ; 

EXTLAB5:F0RMAT (COLUMN (1) ,F (5)) ; 



PRINT STATEMENT 



Original 
PRINT 57l 
5 FORMAT (15) 

Converted 

PUT~FILE (SYSPRINT) EDIT (I) (R (EXTLAB5) ) ; 

EXTLAB5:FORMAT (COLUMN (1) ,F (5)) ; 



PUNCH STATEMENT 



Original 
punch"" 57 1 

5 FORMAT (15) 

Converted 

PUT~FILI7SYSPRINT) EDIT(I) (R(EXTLAB5) 

EXTL AB5: FORMAT (COLUMN (1) ,F (5)) ; 



WRITE STATEMENT 

Except for the absence of the parameters END and ERR, the LCP treats the 
WRITE statement in the same way as the READ statement, replacing SET by 
PUT. 

Note: Differences in format will appear in the output from the con- 
verted program in the case of namelist transmission. 



FORMAT STATEMENT 

To force a new record each time that a FORMAT statement is used, the LCP 
inserts the control format item COLUMN (1) at the beginning of the con- 
verted format list. 

Note that in PL/I, format items, even when they include control for- 
mat items, are ignored if they appear after transmission of the last 
data list item. Differences in format may therefore appear in the out- 
put listing. 

The following examples illustrate the conversion of the various forms 
of the FORTRAN FORMAT statement. 
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Nglg£i?: c Format, Items 

I, F, E, D codes 

Original 

5 FORMAT (312, 4F11.4, 2E9.3, 3D20. 16) 

Converted 

EXl?LAB57FORMAT (COLUMN (1) ,3 F(2),4 F(11,4),2 E(9,3),3 E(20,16)); 

The BLKZR control card option enables the user to call the function 
LBLNK. LBLNK will then appear in the converted format code. On input, 
this function modifies numeric data as follows: 

- replaces & (plus sign in BCDIC) by + 

- replaces D (double-precision) by E 

- inserts a zero if the external data field is blank 

- inserts + after E, if the character following E is a blank, and 
replaces other embedded and trailing blanks by zeros. 

If the FORMAT statement is only used for PRINT files, LBLNK is not 
generated. 

T r an smiss io n_of _Complex_D at a : FORTRAN requires an E-format specifica- 
tion for each part of a complex number. This format can be used in the 
same program for both complex and real numbers. It is user's responsi- 
bility to replace E-format specifications by PL/I C-format 
specifications. 

Original 

5 FORMAT(F5.3,E10.3) 

C on verted (w i t h_ pj> t i o n_ B L K Z R )_ 

EXTLAB 5: FORMAT (COLUMN (1) ,f7lBLNK(5) ,3) ,E (LBLNK (10) ,3) ) ; 



Scale_Factor 

<integer constant>P<real item> 

where <integer constant> may be positive or negative, and <real item> 
takes the form Fw.d. 

Original 

8~FORMAT (-1PF11.4,F11.4) 

Converted 

EXTLAB8TFORMAT (COLUMN (1) ,F (1 1 , 4 ,- 1) , F ( 1 1 , 4, -1) ) ; 

Since PL/I accepts the P-factor for F-format items only, the LCP does 
not convert this factor for E or D codes, and a warning message is 
issued. 

Note: The effect of the scale factor is dynamic in FORTRAN IV. The 
results of the PL/I target program may therefore differ from the 
expected results. If the format refers to an input statement, it is the 
user's responsibility to invert the sign of the P-factor. 
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Logical Format Item 

<format code> is L. 

Original 

7 FORMAT (2L10) 

Converted 

EXTLAB7: FORMAT (COLUMN (1) ,2 B(10) ) ; 

The user should note that logical data in the external medium must be 
in a form accpetable to the PL/I compiler. Thus, the values .TRUE. and 
.FALSE. must be represented by 1 and respectively, and may occur 
anywhere within the field of the size indicated in the FORMAT statement. 
On output, the truth values 1 and will be left-adjusted within the 
indicated field. Thus, using the above example, external data for input 
might appear in the form-: 

<blank> (2) 1<blank>(7) <blank>0<blank> (8) 

where <blank>(p) is a string of p consecutive <blank>'s. 

Similarly, output of logical data would take the form: 
1<blank> (9) 0<blank> (9) 

A warning message is issued. 



Character-String_Format_Item 

<format code> is A. 

O ri ginal 

5 FORMAT (20A4) 

Converted 

EXTLAB5: FORMAT (COLUMN (1) ,2 0A (4)) ; 

Note 1_: Using the A-format code, FORTRAN can read or write a 

character-string in a field having a variable name. This variable will 
be given the CHARACTER (4) attribute in the PL/I target program, except 
if it appears after an indexed list and/or an array. It, therefore, 
retains the CHARACTER (4) attribute throughout the program, i.e., it 
must not be used to contain numeric values. In particular, the user 
must check that the variable passed through the FORTRAN COMMON and CALL 
statements in both main program and subprograms has the same type of 
declaration in PL/I. Note also that, FORTRAN IV source programs written 
for current IBM systems other than System/360 may give incorrect results 
due to the number of characters that are transmitted. 

Note_2: If the <list part> of the corresponding input/output statement 
contains indexed lists and/or arrays, the variables of the <list part> 
that are included in or follow the first indexed list or array, and that 
correspond to an A-format code, are not declared as CHARACTER. 

Genera lized_Format_I tern 
<format code> is G. 

This format code is not converted; a message is issued. 
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Ji § x§. d ec i ma 1_F o r m a t_ I t e m 

<format code> is Z. 

This format code is not converted; a message is issued. 

Literal_Data_and_H-Format_Code 

Original 

98~FORMAT (• HEADING') 

Converted 

EXT LAB98: FORMAT (COLUMN (1) , A ( 8) ) ; 

Original 

98 FORMAT (8H HEADING) 

Converted 

EXTLAB98:FORMAT (COLUMN (1) ,A(8) ) ; 

In either case, a dummy variable containing the string * HEADING' is 
created and transferred to the data list in the corresponding GET or PUT 
statement, and the remote format item R (EXTLAB98) is appended to the 
relevant statement. 

For indexed I/O lists, the conversion of literals or of H-format code 
is incorrect (see READ statement) . 

Control Format Items 



• S£acin£_Format_Itenu 

Original 

5~F0RMAT (110, 10X, 4110) 

Converted 

EXTLAB5: FORMAT (COLUMN ( 1) , F ( 1 0) , X ( 1 0) , 4 F (10) ) ; 

• Printing_Format_ItejK <blank>, 0, 1 , +, /. 

Printer control characters are printed as output data characters 
and are included in the format code. 

Original 

5 FORMAT (MNEXT PAGE* , T15,'DATA«/' NEXT LINE'///// ' SKIP' , 

•FOUR LINES'/ '0DOUBLE SPACING') 

Converted 

EXTLAB57FORMAT(PAGE,A(10) ,COLUMN(15) ,A(4) ,SKIP(1) ,COLUMN(1) ,A(10) , 

SKIP (5) , COLUMN (1) , A (5) , A (1 0) , SKIP (3) , A ( 1 5) ) ; 

A(10) ,SKIP(2) ,A(15)) ; 
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In addition, the literals apppearing in the source FORMAT state- 
ment are placed in dummy variables which are transferred, in order, 
to the data list of the generated PUT (or GET) statement whose 
remote format reference is R(EXTLAB5). 

The format code + is converted into the format item SKIP(O). 

• PSESEtJieses^ When there are more data list items than format items, 
and in order to force the repetition of the format from the last- 
included left parenthesis, an additional pair of parentheses is 
required. Therefore, every time it encounters a pair of parentheses 
of level 2 in a FORMAT statement, the LCP automatically creates an 
additional pair of parentheses preceded by a repetition factor of 
32767. 

Original 

5~F0RMAT (12, (F5. 2, 14) ,15) 

Converted 

EXTLAB5: FORMAT <C0LUMN~(1) ,F(2) ,32767 (1 (F (5,2) ,F (4) ) ,F (5) ,SKIP (1) ) ) ; 

When the same FORMAT statement applies to PRINT and non-PRINT files, 
a warning message is issued. 

Note: The first character of a string appearing at the beginning of a 
record is both converted as a control character and treated as data if 
one of the corresponding files is a PRINT file. When such a string con- 
tains only one character, it is converted as a control character if all 
the corresponding files are PRINT files. 



END FILE STATEMENT 

This statement is not converted; a warning message is issued in the out- 
put listing. However, if on the same data set an END FILE statement is 
dynamically followed by a REWIND statement, the effect may be the same 
as in FORTRAN. 



REWIND STATEMENT 



Original 
REWIND 6 

Converted 

CLOSE FILE (FT06F01) ; 

Note: The conversion of a REWIND statement by a CLOSE statement may 
give different effects, for the data set will be repositioned at the 
beginning of the tape after writing an end-of-file mark. A warning mes 
sage is issued. 



BACKSPACE STATEMENT 



This statement is not converted; a message is issued 



40 



CONVERSION OUTPUT AND MESSAGES" 



The LCP can generate two forms of conversion output: 

1. A listing of the converted program 

2. The converted program on punched cards or in card-image form 

The listing of the converted program is always provided, but the 
punched-card (or card image) output is optional. The listing contains 
the converted program together with messages generated during conver- 
sion. Additionally, the user can specify that a listing of the source 
program be included. 



LISTING 

The listing contains two major sections: 

1. The optional source program listing 

2. The converted program 

The source program listing contains the original source statements 
exactly as they appeared in the input. 

The listing of the converted program includes : 

• The converted program itself. This again is divided into two parts. 
One part contains converted statements, statements generated by the 
LCP, messages replacing statements that have not been converted 
(i.e., FORTRAN statements for which conversion is not possible or 

not practical) , and warning message flags. The other contains mes- 
sages showing either that the FORTRAN source statement cannot be 
converted or that conversion has taken place, but that fidelity to 
the source statement cannot be guaranteed. 

• A table of source program statement function or subprogram names, 
each of which has been replaced either by an equivalent built-in 
function or procedure (see Appendix B) , or by a function name that 
avoids conflict with PL/I built-in function names not available in 
FORTRAN. The changed or substituted name appears next to the func- 
tion name it has replaced. 

• A table of source program variable or array names that have been 
replaced by an LCP substitution name. The replacement appears next 
to the corresponding variable or array name. 



MESSAGES 

Messages in the output listing indicate clearly the statements in the 
converted program to which they apply, thus enabling the user to scan 
the program for statements that require manual changes. 
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A message appears with each output statement that falls into one of 
the following categories: 

• The FORTRAN statement is not convertible into PL/I. 

• The PL/I statement may not have the same effect as the corresponding 
FORTRAN source statement. 

Using the output listing, the present manual, and the PL/I language 
specifications manual , the user can determine the hand changes reguired 
to make the PL/I program suitable for compilation. 



OUTPUT 

The punched cards (or card images) produced by the LCP contain converted 
statements, the form of which matches that in the listing. 

Statements flagged with a warning message should, where necessary, be 
corrected before the PL/I program is submitted for compilation. 
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APPENDIX_JU C0RRESP0NDOG_F0RTRAN_MD_PL / /I_BASIC_SYMB0LS 



FORTRAN IV 


S_m 


ibol 


P____60_Character 










Set Symbol 


A-Z 








A-Z 


$ 








$ 


0-9 








0-9 


blank 








blank 


= or 


•EQ« 






= 


+ 








+ 


* 








* 


/ 








/ 


( 








( 


) 








) 


i 








/ 


1 (apo! 


strop] 


he) 




• (apostrophe) 


• NOT* 








T 


• AND* 








& 


• OR* 








1 


• GT« 








> 


• LT» 








< 


• GE« 








>= 


• NE« 








T = 


•LE« 








<= 



P_______CJiar_cter 

S§.t_Sx.mbol 

A-Z 
$ 

0-9 
blank 



• (apostrophe) 

NOT 

AND 

OR 

GT 

LT 

GE 

NE 

LE 
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APPENDIX B. CONVERSION OF FORTRAN MATHEMATICAL FUNCTION SUBPROGRAMS 



In the following table, unless otherwise specified, the number of argu- 
ments associated with each FORTRAN function is the same as that for the 
corresponding PL/I function. 



FORTRAN Function 



PLZI_!!i2I!£tipn 



EXP 
DEXP 
CEXP 
CDEXP 



EXP 
EXP 
EXP 
EXP 



A LOG 
DLOG 
CLOG 
CD LOG 



LOG 
LOG 
LOG 
LOG 



ALOG10 
DLOG10 



LOG10 
LOG 10 



ATAN 
DATAN 
ATAN2 
DATAN2 



ATAN 
ATAN 
ATAN 
ATAN 



SIN 
DSIN 
CSIN 
CDSIN 



SIN 
SIN 
SIN 
SIN 



COS 
DCOS 
CCOS 
CDCOS 



COS 
COS 
COS 
COS 



SQRT 
DSQRT 
CSQRT 
CDSQRT 



SQRT 
SQRT 
SQRT 
SQRT 



TANH 
DTANH 



TANH 
TANH 



MOD 
A MOD 
DMOD 



MOD 
MOD 
MOD 



see Note 2 



IABS 

ABS 

DABS 

CABS 

CDABS 



ABS 
ABS 
ABS 
ABS 
ABS 



INT 

AINT 

IDINT 



TRUNC 
TRUNC 
TRUNC 
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FORTRAN Function 



PL/1 Function 



AMAXO 

AMAX1 

MAXO 

MAX1 

DMAX1 

AMINO 

AMIN1 

MINO 

MINI 

DMIN1 

FLOAT 
DFLOAT 

I FIX 
HFIX 

SIGN 

ISIGN 

DSIGN 

DIM(<arg1>,<arg2>) 
IDIM(<arg1>,<arg2>) 

SNGL(<arg>) 

REAL 

AIM AG 

DBLE(<arg>) 

CMPLX 
DCMPLX 

CONJG 
DCONJG 

TAN 
DTAN 

SINH 
DSINH 

COSH 
DCOSH 

ERF 
DERF 

ERFC 
DERFC 



MAX 
MAX 
MAX 
MAX 
MAX 

MIN 
MIN 
MIN 
MIN 
MIN 

FLOAT 
FLOAT 

FIXED 
FIXED 

See Note 3 
ti 

ii 



See Note 2 
ii 



REAL 

IMAG 

See Note 2 

COMPLEX 
COMPLEX 

CONJG 
CONJG 

TAN 
TAN 

SINH 
SINH 

COSH 
COSH 

ERF 
ERF 

ERFC 
ERFC 
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If the source program contains subprogram names created by user that 
match FORTRAN IV mathematical function names, they must be specified in 
an LCP control card (see Appendix E) so as not to be converted to PL/I 
functions. Thus, if the assignment statement: 

Y=EXP(X)+DEXP(Z) 

appears in the source program, and DEXP is a user function name, this 
name must be listed in the LCP control card. The user can then provide 
his own DEXP FORTRAN function subprogram for conversion to PL/I. 

Note_J 

If a name created by the user (EXP, for example) coincides with one 
of the PL/I built-in function names listed above (except for COMPLEX and 
REAL), a conflict may arise if the name is also the PL/I equivalent of a 
FORTRAN function (DEXP, for example) used elsewhere in the program. In 
this case, the converted form of the assignment statement illustrated in 
the preceding paragraph would be: 

Y = EXP(X) + EXP (Z) 

Note_2 

The following mathematical functions: 

DIM, IDIM, SNGL, DBLE, ARSIN, DARSIN, ARCOS, DARCOS, COTAN, DCOTAN, 
GAMMA, DGAMMA, ALGAMMA, DLGAMMA 

are not converted. 

The conversion provided for the mathematical functions MOD, AMOD, and 
DMOD produces correct results only if the first argument is greater than 
zero. 

Note_3 

The LCP converts the functions SIGN, ISIGN, and DSIGN by providing an 
internal procedure for each. 

For the SIGN function the procedure is: 

SIGN:PROCEDURE(A1,A2) FLOAT BINARY; 
DECLARE (A1,A2) FLOAT BINARY; 
IF(A2<0)THEN RETURN (-ABS (A 1) ) ; 
ELSE RETURN (ABS (A1)) ; 
END; 

In the ISIGN function, FLOAT BINARY is replaced wherever it appears 
by FIXED BINARY (31); in the DSIGN function, by FLOAT BINARY (53) . 
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APPFNDI7 C. LCP RESTRICTION* 



1. Hexadecimal and octal constants are not converted. 

?. The conversion of subscripts containing the operators /or ♦*, mixed 
mode expressions, function references, or subscripted names may 
qive incorrect results. 

"*. The user must ensure that his program, in no event, uses an 

assigned variable for any purpose other than for the assigned GO ^0 
statement. 

U* The user must ensure that his program, in no event, contains a 
transfer back into a no loop. 

5. When converting a COMMON statement, the user should ensure that 

common blocks in the various subprograms are the same, that is, the 
COMMON statements in the various subprogram must be identical. 

6» in version u, the conversion of FORTRAN integer constants two bvtes 
in length, and of logical data items mav oive incorrect results. 

7. The number of dimensions of an arrav used in the list of parameters 
must be equal to that of the corresponding argument. 

8. on entrv to a function or to a subroutine, initialisation of para- 
meters made on a previous entry may be lost. 

9. Tn a DATA statement, when the initial values are literals, the 
corresponding variables are declared as CHARACTER bv the I,CP r and 
must remain so throughout the program, i.e., thev must not be use* 
to contain numeric values. Tn particular, the user must check that 
variables passed through the FORTRAN COMMON and CALL statements in 
both main prooram and subprograms have the same type of declaration 
in PL/T. An implied DO in a DA^A statement is not converted. 

10. FORTRAN literal constants should no* be passed as arguments +o a 
subprogram. The user should note that Fortran TV and PL/T do not 
handle adlus+able dimensions in the same manner, and that in PL/I 
the dimensions of an array passed as argument are those of the cal- 
ling program. 

11. Initial values assigned to variables in EQUIVALENCE statements 
should be adiusted bv the user. 

12. The LCP does not provide PL/T external procedures to simulate +he 
effect of Fortran" service subprograms OVEP'L, nvCHK, SLIte, sriTE m , 
PUMP, and PDTTMP. 

1*. ^he LCP does not provide external procedures to simulate the e**ec* 
of the following Fortran mathematical ^unction subprograms: 

ARSTN, DA&STN, ARCOS, !>APCOS, CO^AN, T>CO^AN, GAMMA, nGAMMA, ALGAMA, 
DLGAMA, DIM, TDTM, «*NGL, DELE. 

1*U A READ/WRITE statement is no* converged if: 

a. The statement applies to direct-access mode. 

b. A FORMAT statement is referred to bv an arrav name. 
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c. Binary data transmission is indicated (no format reference). 

d. A data set reference number is an integer variable. 

15. The following restrictions, due to differences in the implementa- 
tion of PL/I, apply to the conversion of the FORMAT statement: 

a. When an input/output statement contains arrays or indexed I/O 
lists, and the FORMAT statement referred to contains literal 
data, or an A- or H-format code, conversion of the literals or 
of the A- or H-format codes affecting the elements of the list 
included in and following the first array/indexed I/O list is 
incorrect. 

b. In PL/I, format items, even when they include control format 
items, are ignored if they appear after transmission of the 
last data list item. Consequently, differences in format may 
appear in the output listing. 

c. E-format codes associated with complex numbers must be changed 
into PL/I C-format codes. 

d. P-scale factors associated with E- or D-format codes are not 
converted. Moreover, the effect of the scale factor associated 
with an F-format code may differ. If the format refers to an 
input statement, it is the user's responsibility to invert the 
sign of the P-scale factor. 

e. G- # Z-, and O-format codes are not converted. 

f. When a format refers to a PRINT file and/or a non-PRINT file, 
the first character of a string appearing at the beginning of a 
record is treated, in general, both as a control character and 
as data. 

16. The BACKSPACE and END FILE statements are not converted. 

17. The conversion of the REWIND statement by a CLOSE statement gives 
equivalent effects only if the REWIND statement applies to the 
first data set on the tape. 

18. If a name created by the user coincides with a PL/I built-in func- 
tion name, there may be conflict if the name is also to be the PL/I 
equivalent of a FORTRAN mathematical function used elsewhere in the 
program. 

19. The name of the PL/I equivalent of certain FORTRAN mathematical 
function subprograms cannot be passed as an argument. These PL/I 
built-in function names which cannot be used as arguments are: 
FIXED, AES, MOD, REAL, MAX, MIN, FLOAT, IMAG, TRUNC, COMPLEX, and 
CONJG. For other PL/I built-in function names passed as arauments, 
the user must specify the ENTRY attribute in order to describe 
their entry points properly. 
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APPFNDIX P. DISTRIBUTION OF THE LCP 



The LCP is distributed by TBK in one of two forms: 

• On a disk pack for users having no tape units 

• On tape 

EBQEfftfl? Py,!>;gK.PJCE 
CONTENTS OF THF DISK PACK 

The following data sets are written on the disk pack with label FLCPPS: 

1, A sequential data set (DSNAMF=FOCCAPD) containing the control cards 
reguired by the linkage editor to create a partitioned data set 
with one member: the LCP. 

2, Eighteen data sets containing the 18 modules or: the LCP. These 
modules are in object form, being the output from the PL/I (?) com- 
piler version 5, or from the System/360 Operating Svstem (F) 
assembler, 

3, A sequential data set (DSNAHE=SAMPLF) containing the sample program 
written in FORTRAN. (For use of the sample proaram, refer to 
Appendix H.) 

U. One data set (DSNAWE*LBLNK) containing the object module of the 
function, provided to process blank as -zero in numeric data under 
the control of the option BLK7R. 



CREATING THE LOAD MODULE 



The user roust perform the following steps: 

1. Transfer the data set mentioned in (1) above to cards, to obtain 
the control cards required by the linkage editor. The following is 
an example of the control cards needed to do this: 



//AB 


JOB 


4727, SMITH, MSGLEVEL=1 




//ABA 


ETEC 


PGM*IEBPTPCH 




//SYSPRTNT 


DD 


SYSOUT=A 




//SYSUT2 


DD 


SYSOUT^B 




//SYSUT1 


DD 


UNTT=2311, 


C 


// 




DISP=OLD, 


c 


// 




DSNAME=FOCCARD, 


c 


// 




VOLUME=SER=FLCPRS 




//SYSTN 


DD 


* 




PUNCH 








/* 









The control cards obtained contain all the information required 
by the linkage editor, i,e., names to be used for the load module 
to be created, overlay structure, etc. 
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2. Modify the JOB card and the volume serial number in the //SYSLMOD 
DD... card in order to use his own label. In addition, the user 
may have to modify other cards, depending on: 

• The level of his linkage editor 

(The editor used here is the 44K E-level linkage editor.) 

• Any change that may be required in the names of the load module 

3. Add a /* card to the control cards obtained, and create a parti- 
tioned data set (DSNAME=FORLCP) containing the LCP (member name* 
LCPFORT) , using as input to the linkage editor the 18 data sets 
described under "Contents of the Disk Pack." 

Note : The same procedure will be used when maintaining the LCP; in this 
case, the input to the linkage editor will consist of the updated 
modules, also delivered in object form. 



PROGRAMS ON TAPE 

CONTENTS OF THE TAPE 

Four files are written on the tape, which is blocked with a b locks ize of 
2400 bytes: 

File 1 , which contains the 18 modules of the LCP and the overlay structure 

File 2 , which contains the control cards required by the linkage editor 

File 3 , which contains the sample program written in FORTRAN 

File 4 , which contains the object module LBLNK 

CREATING THE LOAD MODULE 

The user must perform the following steps: 

1. Transfer file 2 to cards to obtain the control cards required by 
the linkage editor. The following is an example of the cards 
needed to do this: 

4 72 7 , SMITH , MSGLEVEL-1 

PGM-IEBPTPCH 

SYSOUT-A 

UNIT»2400,LABEL*(2,NL) , C 

VOLUME«SER-888888,DISP»OLD, C 

DCB« ( RECFM-FB , LRECL-8 , BLKS I ZE«2 4 ) 

SYSOUT«B 

* 



The control cards obtained contain all the information required 
by the linkage editor, i.e., names to be used for the load module 
to be created, etc. 
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//ABC 


JOB 


//ABA 


EXEC 


//SYSPRINT 


DD 


//SYSUT1 


DD 


// 




// 




//SYSUT2 


DD 


//SYS IN 


DD 


PUNCH 




/* 





I 2, Deblock file 1 using the IEBGFNEP utility program. 

3. Modify the control cards, if required. (See item 2 of the section 
"Creating the Load Modules" under "Programs on Msk Pack.") 

4. Add a /* card to the control cards obtained, and create a parti- 
tioned data set (DSNAME=FORLCP) containing the LCP (member name= 
LCPFOFT) , using the 18 modules in file 1 as input to the linkage 
editor. 

Note: The same procedure will be used when maintaining the LCP; in this 
case, the input to the linkage editor will consist of the updated 
modules, also delivered in object form. 



USING THE FUNCTION LBLNK 

When executing the PL/I program and if the option PLK7P has been usefl 
during the conversion, file U must be copied onto a disk pack in order 
to be used. ^he following is an example of the card?? needed to do this, 

//AB JOB «7 27, SMITH, MSGLFVFL=T 

//A EXEC PGM=TEBGENEF 

//SYSTN DD DUMMY 

//SYSPRTNT DD SYSOUT=A 

//SYSUT2 DD DISP= (NEW,KEFP) ,UNIT=2^11 , C 

// V0LUMF=SFP=yyT7y ,,r ,DSNAM^=LBLNK, C 

// DCB= (FFCFM=F,LPT , CL=80 r BLKSI' T F=80) , C 

// SPACED (TPK, (1,1)) C 

//SYSUT1 DD UNIT=2400,LABEL=(4,NL) , C 

// VOLUME=SF*=888888,DISP=OLP, C 

// DCB=(FECFM=F*,LPECL=80,PLKST7E=2U00) 

/* 
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APPENDIVJPj, 2 P .HJ^1ING_PR2£IDI!.2I2 



FTECUTTNG ^HE LCP 



'''he following control cards must be supplied bv the user to execute the 
LCP. ^he standard options are underlined. 



//JOBLIB 

// 
// 
// 

//SYSPCH 
//SYSIOERP 
//SYSPBNT 
//SYSUT1 

//SYS0T2 

//SYSIN 

/ 



JO* 4727, SMTTH,HS(?LEVFL«1 

DD DSNAM^FOTCP, T)I<?P=0LT),UNITs$lli r V0LTinvs«?EP=ryyyyy 

FYFC ^G1=LCPi'OP , T , r PftPM=» SOUPCJJ NOSOUFCF, T1*CK1 *QHI£lt 
PC D | F£C PI C , FT * P FF 1 NOF Y*PF* r C H A R U 8 1 C HA £6 07~ 
BLK7RTNOBLK7P, SI7F=yry"xyx~ 

DP SYSOUT=B 

DD SYS0UT=A 

DD SYSOU^=A,DCB= (RECFM=VA, BLKSTSF=129 ,LPECL= 125) 

DD Parameters defining a work data set. See also 
the note on the parameters SPACE and DC*. 

DD As for SYSU'M 

DD Parameters defining source input data set 



(Startino in column 7) List of subprogram names created *y the 
user that ma+ch FORTRAN TV mathematical function names 
and of data-set-numbers to be declared PRINT. Names 
and numbers may be mixed, but must be separatpd bv commas. 



FORTRAN SOUPCF PROGRAM 



/* 

Note: 



SYSUT1 



SPACE 



DCB 



siaiaz 



SPACE 



DCB 



^his parameter depends on the length of the 
FORTRAN source program to be converted 
One cylinder is required for 120 cards o* source 
program or subprogram. 

This parameter has the following form: 
DCB* (DS0RG=DA,KEYLEN=9) 



One cvlinder is required for 500 cards 
of source program 

This parameter has the following form: 
DCP=(DSOPf?=DA) 
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tS§Si21£L : Tn batch processing, the spaces used on the disV ar*» 

the same. Therefore, to estimate the number of cylinders required, thp 
total number of cards in the batch should not be taVen into considera- 
tion, but only the number of cards in the largest program in the batch. 



CQfl?JQ£ -CARD OPTIONS, 

EXEC CARD OPTIONS 

The following options can be specified in the PARM field of the EXEC 
card. If no option is specified, the standard option (underlined) is 
assumed. 

The total length of the options indicated between apostrophes in the 
PARM field must not exceed 10 characters, commas included. Because of 
this limitation, the LCP accepts abbreviated options (indicated between 
parentheses in the following text) : 

• NOSOURCE or SOURCE (** s <>* 2) 

This option specifies whether the FORTRAN source program is to he 
I listed on the device indicated by the SYSPRNT DD card. 

• DECK or fiQDECK (D or ND) 

This option specifies whether the PL/T program is to be punched on 
the device indicated by the SYSPCH DD card. 

• BCD or EBCDIC (B or EJ) 

This option specifies the character code of the FORTRAN source pro- 
gram and, consequently, that of the LCP output. 

• CHAR48 or CHAR60 (C48 or CfO) 

This option specifies which character set is to be used to list the 
converted program. 

• EXTREF or flOgXTREF (E or ]1E) 

This option specifies whether the name changes in the Fortran source 
program are to be listed on the device indicated by the SYSPRN* DD 
card. 

• BLKZR or NOBLKZR (B7 or NB7) 

This option specifies whether the external form of numeric input 
data must be processed during execution of the PL/I proqram; if this 
is the case, the function LBLNK is used for the conversion of E-, F- 
and I-format items. 

• SI7E=xxxxx or §I?E=71680 

This option specifies the main storage size that is available to the 
LCP. The minimum size of main storage is 71680 bytes; this is the 
standard size for the purposes of this option. Tf the user: 

1. Specifies a smaller value, it is ignored and the standard size 
is assumed. 

2. Specifies a value greater than 71680. This will result in an 
improvement in performance. 
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LCP CONTROL CARDS 

These cards, if necessary, are placed after a SYSIN DD statement and 
between programs in batch processing. These cards contain: 

• / in column 1 

• Starting in column 7: 

1. The subprogram names created by the user that match FORTRAN IV 
mathematical function names (from the list given in appendix 

B) ; these names are not changed by conversion. 

2. The data set numbers that he wishes declared with the PL/I 
attribute PRINT. Any numeric field of up to two digits is con- 
sidered as a data set reference number. Note that the PL/I 
file FT06F01 (data set number=6) is automatically declared with 
the PRINT attribute. If the user wishes to override this 
declaration, he must specify as the data set reference 
number. 



EXECUTING THE PL/I, TARGET PROGRAM 

After any necessary hand changes are made, the converted PL/I target 
program may be used with a normal set of control cards for PL/I pro- 
grams, for example, IBM supplied catalogged procedures such as PL1LFCLG. 

If the user chooses the option BLKZ.R during the conversion run, he 
must link edit the LBLNK module when executing his target program. He 
will have to add the following control card for the link edit step: 

//LKED. SYSIN DD DSNAME=LBLNK,DISP=OLD , UNIT=SYSDA, VOLU ME=SER=xxxxxx 

where xxxxxx is the volume serial number of the disk pack containing the 
LBLNK object module. 



54 



APPENDIX F. MESSAGES 



This appendix contains the list of messages that may be issued during 
the execution of the LCP. In each messages, xxxx represents an identi- 
fication number of up to four digits which appears to the right of the 
converted line in the output listing and in the corresponding card image 
if the option DECK has been specified. The last digit of this number is 
that of the ten positions; the units position is not printed. 



IPB001I READ OR WRITE STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE xxxx 

Explanation: If the READ or WRITE statement contains indexed 
I/O lists and/or arrays, and the FORMAT statement referred to 
contains literal data or an A- or H-format code, conversion of 
these items is incorrect. 

In the conversion of a READ or WRITE statement using NAMELIST, 
it should be noted that: 

• A DEFINED item cannot appear in the data list in PL/I. 

• On input, no search is made for a specific NAMELIST name 

R e guired. Action: For transmission of a character string appear- 
ing among the values of an indexed list or of an array, the user 
should : 

• On input, create a dummy variable containing the character 
string and insert it in the list. 

• On output, either proceed as above, or insert the character 
string itself in the list. 

For a DEFINED item appearing in a data-list, the user should 
replace this item by a dummy variable both in the data list and 
in the data. 

IFB002I ENTRY STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE xxxx 

I^E l^H^ii2li : 0n entry to a function or a subroutine, initiali- 
zation of parameter made on a previous entry may be lost. 

S§aiii£§^- Ac t i on : If needed, the user should insert additionnal 
dummy formal parameters or use dummy static variables. 

IPB003I ASSIGNED GOTO STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE XXXX 

Explanation: An assigned variable cannot be used for any pur- 
pose other than for the assigned GOTO statement. 

£eg..uijr§<l_ Ac t ion : If a label used in an ASSIGN and in an 
assigned GOTO statement is also used as a variable elsewhere in 
the program, the label should be changed. 
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IPB004I COMMON/EQUIVALENCE STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE xxxx 

JJxsL^SltJigS : In general, the conversion of integer variables 
two bytes in length and of logical variables will result in in- 
correct addressing. This may also apply to elements with the 
CHARACTER attribute. 

Required Action: The user should insert additional dummy 
variables to provide correct alignment. 

IPB005I ARITHMETIC ASSIGNMENT STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE XXXX 

Explanation : The right-hand part of the assignment 'sta tement is 
an expression of REAL type and the left-hand part is of INTEGER 
type. Due to difference of implementation, the results of the 
truncation may differ. 

l§.a]ii£§d_ Ac t i on : It is the user's responsibility to check 
whether truncation due to conversion gives the expected result. 
The built-in function CEIL may be used if the expected result is 
not produced. 

IPB006I SUBSCRIPT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE xxxx 

lx£llJ}lii°B : A subscript expression contains the operators ** 
and/or /, or a left parenthesis. 

£§.3.Iii£ed_ Act ion : If the subscript contains integer division, 
the user should insert the built-in function TRUNC. If it con- 
tains a subscripted variable, the user must reverse the order of 
the subscripts. The operation ** may give a result of PEAL 
type. The user must verify that the result of the truncation is 
correct. 

IFB007I FORMAT STATEMENT 

PL/I AND FORTRAN RESULTS MAY DIFFER IN LINE xxxx 

liEianation : PRINT and non-PR INT files have the same format, or 
one (or more) of the following items is detected: 

• G-, Z- and 0- format codes (not converted) 

• P-scale factors associated with E- or D-format codes (not 
converted) 

• L-format code. 
B§.3.Jii£e4_ Act i on : 

1. PRINT and non-PRINT files: 

The user must specify two FORMAT statements, one for PRINT files 
and another for non-PRINT files. 

• G-, Z- and 0-format codes: 

The user must replace these format codes by a type acceptable to 
PL/I. 
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• P-scale factors: 

The user should modify the corresponding data 

• L-format code: 

Logical data in the external medium must be in a form acceptable 
to PL/I. 

IPB008I SERVICE SUBPROGRAMS 

PL/I AND FORTRAN RESULTS MAY DIFFEP IN LINE XXXX 

Explanation: This message- is issued when a call to subprograms 
EXIt7~DUMp7 PDUMP, OVERFL, DVCHK r SLITE and SLITET is detected. 

JL§3iJ A££d_ Ac t i on • 

1. EXIT: 

The CALL statement has been converted to STOP if EXIT has no 
argument list. If the user provides his own EXIT procedure, he 
must modify the converted statement. Otherwise, no action is 
reguired. 

2. Other service subprograms: 

If the user provides his own procedures, no action is required. 
Otherwise, the user may 

• For DUMP and PDUMP: use the procedure IHEDUMP (or a PUT 
statement) . 

• For OVERFL and DVCHK: use ON-condition OVERFLOW or 
ZERODIVIDE. 

IPB009I LITERAL PASSED AS AFGUMENT IN LINE xxxx 

I;X£l.§Jl§t ion : A literal constant may not be passed as an argu- 
ment to a subprogram. 

KiiSLiiired-Actipn : T ^e user should declare with the CHARACTER (*) 
attribute the corresponding parameter in the called subprogram. 

IPB010I HEXADECIMAL/OCTAL CONSTANT NOT CONVERTED IN LINE xxxx 

£6guired_Action : T ^ e use ^ should modify the type of the 
constant. 

IPB011I MATHEMATICAL FUNCTION NOT CONVERTED IN LINE XXXX 

Ex jolana t io n : This message is issued when the mathematical 
FORTRAN functions DIM, IDIM, HOD, AMOD, DMOD, SNGLE, and DBLE 
are invoked. 

1 sg ui r ed_ A c t i on : 

1. SNGLE, DBLE: 

These functions should be replaced where they appear by the PL/I 

built-in function PRECISION. 
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2. DIM, IDIM: 

These functions should be replaced by the expression 

conv<argument1>-MIN (conv<argument1>,conv<;arguraent2>) 

3. MOD, AMOD, DMOD: 

These functions are converted using the PL/I built-in function 
MOD. If the first argument could be lower than zero, the user 
must replace the conversion by the expression: 

conv<argument1>-TRUNC(conv<argument1>/conv<argument2>) 
*conv<argument2> 

J IPB012I DATA SET REFERENCE NUMBER IS VARIABLE IN LINE XXXX 

Exp lanation: A data set number in the FORTRAN statement is an 
integer variable. The statement is not converted. 

Required Action: The user may simulate the effect of FORTRAN by 
using a series of IF statements to test the values of the data 
set reference number. For example: 

FORTRAN 

WRITE (N, 1 0) <data list> 

IF N=1 THEN PUT(FT01F01) EDIT (conv<data list>) (R (EXTLAB1 0) ) ; 
IF N=2 THEN PUT (FT02F01 ) EDIT (conv<data list>) (R(EXTLAB10) ) ; 

IF N=p THEN POT (FTOpFOI) EDIT (conv<data list>) (R (EXTLAB10) ) ; 

where p is the maximum number of data sets 

{ IPB013I FORMAT REFERENCE IS ARRAY NAME IN LINE xxxx 

Explanation: A FORMAT statement is referred to by an array 
name. The statement is not converted. 

^®2!iA£6d_ Ac t i on : Attach the FORMAT statement to the input/ 
output statement. 

| IPB014I BINARY DATA TRANSMISSION IN LINE xxxx 

Explanation: Binary data transmission is indicated in the 
FORTRAN statement. The statement is not converted. 

M<L!ii£££_ Action 5 0s e tne PL/I RECORD I/O facility. 

] IPB015I BACKSPACE, REWIND, OR END FILE AT LINE xxxx 

Explanation: The FORTRAN statement is a BACKSPACE, REWIND, or 
END FILE statement. The statements BACKSPACE and END FILE are 
not converted; the statement REWIND is converted into the PL/I 
statement CLOSE, but the tape may be incorrectly positioned as a 
result. 

Ig3i*4ggfl _ Ac t ^on : N one . 
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IPB016I SYNTACTICAL ERROR IN LINE XXXX 

IZ£lSHfi£i2£* A FORTRAN stateiient is syntactically incorrect. 
It is not converted. 

Required Act ion: Suppress error. 

IPB017I EQUIVALENCE STATEMENT. CONVERSION WITH DEFINED TTEK "!AY PRODUCE 
MESSAGE AT COMPILATION. 

£X£iiJiaii2!l : T he conversion of the EQUIVALENCE statement uses a 
PL/I (F) compiler facility; at compilation time an error message 
may be issued if the attributes of the DEFINED item differ from 
those of the base item, but execution is not prevented. 

Required , Action: None. 

TPB018I THE FOLLOWING STRING NOT IDENTIFIED AS AN OPTION - Y^TYvyyy 

Explanation: The LCP is processing the option list passed to it 
as a parameter, when it finds a character string that it cannot 
identify as an option. The unidentifiable character string is 
ignored. 

SS3Si£Sl-&StJ2S* Correct the erroneous parameter. 

IPB019I FILE SYSUT2- INEXPLICABLE T/O ERROR 

Explanation: one of the following I/O errors has occurred: 

• Space allocation for SYSUT2 insufficient 

• Permanent I/O error on disk. (Hardware fault) 

Regui re d Acti o n: In first case, increase SY«!Ut? space alloca- 
tion. In second case, change disk or disk-drive. 

Jfote: This message is always followed by the completion code 
ABEND U00. 
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APPENDIX G: PREPARATION OF DATA 



The methods of entering data differ, in certain respects, in FORTRAN and 
in PL/I. 

Where applicable, the user should therefore modify the data as 
follows: 

1. For numeric data, the option BLKZR automatically makes the follow- 
ing alterations: 

• Plus sign in BCDIC (&) is replaced by + 

• D is changed to E 

• An all blank field is replaced by 

• If a blank appears after E, a + replaces it 

• Other embedded and trailing blanks are replaced by zeros. 

For other types of data, the user must do his own modification. In 
particular, it must be noted that the PL/I (F) compiler does not 
accept an exponent of more than 2 digits. 

2. The items of FORTRAN logical data TRUE (or T) and FALSE (or F) 
should be changed into 1 and respectively. 

3. Data pertaining to a FORTRAN NAMELIST statement should be modified 
to ensure that: 

• The NAMELIST name is suppressed and the end-of-data group 
(SEND) is replaced by a semicolon. 

• The repetition factors, if any, are expanded, and each value in 
a data list assigned to the corresponding element of the array. 

• The order of subscripts attached to variables is reversed. 

• The data must be in EBCDIC. 
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APP?wp IT.., ff.t ^ * " °IZ ° p nn p B " 



The disk pack or the tape distributed by IBM contains, in addition to 
the LCP, a sample program written in FORTRAN IV. The purpose of the 
sample program is to demonstrate the working of the t,cp and to illus- 
trate the explanations given in the various sections of this manual. 

Once the load module for the T.CP has been created, there are three 
steps to be performed: 

1. Extraction of the sample program with its associated data from the 
disk pack or tape, and transfer onto punched cards 

2. Execution of a conversion run for the program 

3. Execution of a compile, link, and go run with the PL/t compiler, 
using the output from step 2 and the data from step 1 

These steps are described in detail in the paragraphs that follow. 

Step 1. Extraction of Sample Program 

a. for users , recej.v j.n g thei r. pr og ra m on dj.sk pack : The FORTRAN TV 

program and its data are written on the disk pack as a single data 
set (DSNAME*SAMPLE) . The following is an example of the control 
cards reguired to obtain the punched cards: 



//AB 



JOB M727, SMITH, MSGLEVEL=1 



//ABA 



ETEC PG«*IEBPTPCH 



//SYSPPINf 


DD 


SYSOUT*A 


//SYSUT2 


DD 


SYSODT=B 


//SYS0T1 

// 

// 

// 


DD 


ONIT-2311, 
DTSP*OLD, 
DSNAHE*SAHPL*, 
VOLUME=SER=FLCPRS 



//SYSTN DD 



PUNCH 
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/* 



b. gP£_S§ers^receivjng their progra m on ta pe: The Fortran TV program 

and its data are written on tape as a single file. The following 

is an example of the control cards required to obtain the punched 
cards: 

//AE JOB U727, SMITH, MSGLEVEL=1 

//ABA ETEC PG M=IEBPTPCH 

//SYSPRTNT DD SYSOUT=A 

//SYS0T1 DD UNTT=2400,LAPEL= (3,NL) , C 

// VOLUHF=SE*=888888, C 

// DCB= (PECFM=FB,LFECL=80,BLKSI*!*=2J»00) 

//SYSUT2 DD SYSOUT=p 

//SYSTN DD * 

PUNCH 



/* 
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Step 2. Program Conversion Pun 

The following is an example of the control cards required for a pro- 
gran conversion run: 

4727, SMITH, HSGLEVEL*1 

DSNAME=F0PLCP,DISP«0LP,0NIT*2'ni, C 

VOLUME=SFP=XXXXXX 

PGM*LCPPOPT,PARM* , SOOFCF,P*CK,BLK ,T n» 

SYS0UT*A,DCB=(*ECFM=VA,BLKSI7F»129,LPFCL=1?5) 

SYSOU^A 

DSNAHE*UT2, SPACE* (CYL, (5,)) , C 

DCB=(DS0RG*DA,KFYLFN»9) rUNIT=2"*11 

DSNAHF*0T3 f SPACE* (CYt, (2 ,) \ ,DCB« (D<SOPG*DA) , C 
DNTT*2311 

SYSOOT=B 

* 



//AB 


JOB 


//JOBLIB 


DD 


// 




//F 


EYFC 


//SYSPRNT 


DD 


//SYSIOERR 


DD 


//SYStFM 


DD 



// 

//SYSUT2 
// 

| //SYSPCH 
//SYSIN 



DD 



DD 



DD 



• • • 

• • • 

/* 



The FORTRAN program cards: SAHPR010 through SAHPP960 



Since the option SODPCF appears in the F"*FC card, a listina of the 
FORTRAN source program and of its translation into Pt/T should appear on 
the printer as follows: 
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FORTRAN IV TO PL/I LCP - V1L0 



4. 

-2. 

1. 

3- 
1. 
2. 

0. 

0. 

-0, 

0. 

1. 

0. 

301 
302 
303 
30H 
305 
306 
307 
308 
12 



SIMULTANEOUS EQUATION ROUTINE 

THE FOLLOWING DATA SHOULD BE OUTPUT BY THE PROGRAM. 

HATRIT A 
2150 -1.2120 1.1050 

1200 3.5050 -1.6320 

1220 -1.3130 3.9860 

MATRIX B 
2160 
2470 
3456 



13 
17 

64 
65 
66 

63 

11 



A-INVERSE 
2916 0.0833 -0.0467 
1632 0.3836 0,1118 
0283 0.1029 0.3009 

SOLUTION MATRIX 
9321 
2655 
7429 

DIMENSION A(10,10) ,X<10) ,B(10) 
FORMAT (1H1,10X,15HINCOMPATIBILITY) 

FORMAT (1H ,10X,41HMORE EQUATIONS THAN UNKNOWNS-NO SOLUTIONS) 
FORMAT (1H ,10X,46HMORE UNKNOWNS THAN EQUATIONS-SEVERAL SOLUTIONS) 
FORMAT (1HO,10X,15HSOLUTION MATRIX) 
FORMAT(1H1,10X,8HMATRIX A) 
FORMAT(1HO,10T,8HMATRIX B) 
FORMAT(1HO,08X,10H A-TNVERSE) 
FORMAT (1H ,10X,24HDIAGONAL ELEMENT IS ?ERO) 
FORMAT (6110) 

READ (5,12) M1,M2,L1,L2,N1,N2 
M1 - NO. OF ROWS OF A 
M2 * NO. OF COLS OF A 
L1 - NO. OF ROWS OF X 
L2 * NO. OF COLS OF X 
N1 ■ NO. OF ROWS OF B 
N2 ■ NO. OF COLS OF B 
FORMAT (7F10.4) 
FORMAT (10F10.4) 
IF (N2-1) 63,64,63 
IF (L2-1) 63,65,63 
IF (L1-M2) 63,66,63 
IF (M1-N1)63,11,63 

WRITE (6,301) 
GO, TO 2 
N»M1 
N*M2 
IF (M1-M2) 91,14,93 



SAMPP010 
SAMPP020 
SAWPR030 
SAMVR040 
SAWPP050 
SAMPR060 
SAWPR070 
SAMPR080 
SAMPP090 
SAMPP100 
SAM*R110 
SAMPR120 
SAMPR130 
SAWPR140 
SAMP" 150 
SAMPF160 
SAMPR170 
SAMPR180 
SAWPR190 
SAMPP200 
SAMPR210 
SAMPR220 
SAMPR230 
SAMPR240 
SAMPR250 
SAMPR260 
SAMPR270 
SA*PR280 
SA*PR?90 
SAWPR300 
SAMPR310 
SAMPR320 
SAWPR330 
SANPR*40 
SAMPR350 
SAMPR360 
SAMPRV70 
SAMPR380 
SAMPR390 
SAMPP400 
SAMPR410 
SAMPR420 
SAWPR430 
SAMPR440 
SAMPR450 
*ANt>R460 
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91 WRITE ( 6,3C2) 

GC TO 2 
93 WRITE (6,303) 

GC TO 2 
14 WRITE (6,305) 
DO 7C I«l f N 
BEAJD (5,13) (A(I,J) ,J=1,N) 
WRITE (6,17)<A( I,J),J=1,N) 



7C 


CONTINLE 


89 


FCPMT (F10.4) 




WRITE (6,306) 




READ (5,89)(B(I) ,I=1,N) 




WRITE (6,89)(6( I),I=1,N) 


2C 


DC 12C K=1,N 




D=A(K,KI 




IF(C)4C,200,40 


4C 


A(K,K)=1.C 


5C 


CC 6C J = 1,N 


6C 


/S(K ( ,J) = A(K,J)/D 




IF(K-N)8C,130,130 


80 


IK=K+1 




DC 12C I=IK,N 




C=A(I,K) 




A(I,K)=O.C 




CC 12C J«l t N 


12C 


A(I,J)=A(I,J)-(C*/S(K,J)) 


130 


IK=N-1 




DC 18C K*1,IK 


14C 


I1=K+1 




DC 18C 1=11, N 




C=MK, I) 




/HK,I) = 0.0 


17C 


CC 18C J=1,N 


18C 


A(K,J ) = A(K ,J)-(0*A<I,J) ) 




GC TO 2C2 


2CC 


WRITE (6,308) 




GC TO 2 


2C2 


WRITE (6,307) 




CC 201 1=1, N 




WRITE U t 17HA(If J)fJ«l ( N) 


2C1 


CCMIHE 


40C 


CC 21 1=1, N 




>m=c.o 




CC 21 K=1,N 


21 


X(I)=X( I)-»A( I,K)*B(K) 


4C1 


kFITEU,3C4) 




WRITE (6,89)(X(I),I=1,N) 


2 


CALL EXIT 




STCP 




END 



SAMPR470 
SAMPR480 
SAMPR490 
SAMPR500 
SAMPR510 
SAMPR520 
SAMPR530 
SAMPR540 
SAMPR550 
SAMPR560 
SAMPR570 
SAMPR5R0 
SAMPR590 
SAMPR6G0 
SAMPR610 
SAMPR620 
SAMPR630 
SAMPR640 
SAMPR650 
SAMPR660 
SAMPR670 
SAMPR68C 
SAMPR690 
SAMPR7C0 
SAMPR710 
SAMPR72C 
SAMPR730 
SAMPR740 
SAMPR750 
SAMPR760 
SAVPR770 
SAMPR780 
SAMPR790 
SAMPR800 
SAMPR810 
SAMPR820 
SAMPR830 
SAMPRP40 
SAWPP850 
SAMPP860 
SAMPR870 
SAMPR880 
SAMPR890 
SAMPR900 
SAMPR910 
SAMPR920 
SAMPR<53C 
SAMPP94Q 
SAMPR950 
SAMPRQftO 
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CECLARE 


DUMM005 


CHARACTER! 


15) 


CECLARE 


CUMMC04 


CHARACTER! 


8) 


CECLARE 


CUNM003 


CHARACTER! 


8) 


DECLARE 


DUMM002 


CHARACTER( 


10) 


CECLAFE 


DUMMC01 


CHARACTER! 


24) 



(NCZERCCIVICE): MAINFRC: PROCEDURE OPT I0NS(MAIN ) ; MAICnnio 

DECLARE IK FIXED BINARYOl) STATIC, II FIXED BINARYOl) STATIC, N2 MAIC0020 

FIXED BINARYOl) STATIC, Nl FIXED BINARYOl) STATIC, L2 MAI0003H 

FIXED BINARYOl) STATIC, LI FIXED BINARYOl) STATIC, M2 MAI00040 

FIXED BINARYOl) STATIC, Ml FIXED BINARYOl) STATIC, D MAI00C50 

FLOAT BINARY STATIC, K FIXED BINARYOl) STATIC, J FIXED BINARYOl) MAI00060 

STATIC, N FIXED BINARYOl) STATIC, I FIXED BINARYOl) STATIC, B< MAI00070 

10) FLCAT EINARY STATIC, X( 10) FLOAT BINARY STATIC, A! MAICCOfiO 

1C, 10) FLOAT BINARY STATIC; MAICC090 

CECLARE DUMM008 CHARACTER! 15) IN IT IAL ( • INCOMPAT IB IL ITY » ) ; MAICC1C0 

DECLARE DLMMC07 CHARACTER( 41) IMTIALPMCPE EQUATIONS THAN UN KNOMAI 001 10 

WNS-N0 SOLUTIONS'); MAIC0120 

DECLARE ULNM006 CHARACTER! 46) I N IT I AL ( • MC PE UNKNOWNS THAN E0U ATIMAI C0130 

CNS-SEVERAL SOLUTIONS'); MAI00140 

INITIAL! 'SOLUTION MATRIX'); MAI00150 

INITIAL! 'MATRIX A'); MAIC0160 

INITIAL! 'MATRIX B'); MAIC0170 

INITIAL!' A-INVERSE'); M4ICC180 
INITIAL! 'DIAGONAL ELEMENT IS ZERH «MA I CU9p 

); MAI00700 

CECLARE LBLNK ENTRY(FIXED B INARY) RETURNS! FI X ED BINARY); MAI00210 

CECLAFE(FT06F01)PRINT FILE; MAIO0??O 

/* SIMULTANEOUS EQUATION ROUTINE*/ MAI C0?3O 

/* THE FCLLCWING DATA SHCULC EE OUTPUT BY THE PROGRAM.*/ MAI C0240 

/* MATRIX A*/ MAIC0?50 

/* 4.215C -1.2120 1.1C50*/ MAI00260 

/* -2.12CC 2.5C5C -1.632C*/ MAI00270 

/* 1.1220 -1.313C 2.9860*/ MAI0^280 

/* MATRIX B*/ MAI00290 

/* 3.2160*/ MAI0030O 

/* 1.247C*/ MAIC0310 

/* 2.3456*/ MAIC0320 

/* A-INVERSE*/ MAIC03?0 

/* C.2S16 C.0633 -C.C467*/ MAI00340 

/* C.1622 C.3636 C.1118*/ MAI00350 

/* -C.C263 0.1C29 C.3C09*/ MAI00360 

/* SOLUTION MATRIX*/ MAI00370 

/* 0.9321*/ MAI 00380 

/* 1.2655*/ MAIGC390 

/* C.742S*/ MAIC04C0 

tXTLAb3Cl:FCPMAT!PAGE,X(lC) ,A(15) ) ; MAI 004 10 

EXTLAE302: FORMAT (COLUMN! 1) ,X(10),A(41)); MA 100420 

EXTLAB302: FORMAT ( COLUMN! 1),X(1C),A!46)); MA 10043^ 

EXTLAE304:F0RMAT(SKIP(2),X( 10), A! 15) ) ; MA I 00440 

EXTLAe30 5:FCFNAT{PAGE,X(10),A(8)) ; MAI 00450 

EXTLAfc30b:FCFMAT!SKIF(2),X(10), A (8) ); MAT TC46C 

EXTLAB3C7:FCPMAT(SKIP(2) , X (08 ) , A ( 10 ) ) ; MAIC047H 

t XTLAB3C£: FORMAT! COLLMN(l) ,X(10) ,A(24) ); MA I CO* 80 

tXTLAB12:FORMAT(COLUMN( 1) ,6 F ( LBLNK ( 10 ))) ; MAI0H490 
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IPB001I 
IPBOOII 



IPBOOII 
IPBOOII 



/* 
/* 
/* 

/* 
/* 
/* 

tXTLA 
EXTLA 

tXTLA 
tXTLA 
tXTLA 
tXTLA 

EXTLA 



EXTLA 
EXTLA 
tXTLA 

t XTLA 
EXTLA 

EXTLA 



EXTLA 
EXTLA 
EXTLA 



EXTLA 



EXTLA 



bfcT 

Ml = 

^2 = 

LI = 

12 = 

Nl = 

i\2 = 

bl3:FC 

E17: FO 

IF(N2 

E64:IF 

B65 :IF 

Btt'.lF 

b 6 2 : P L 

GOTO 
Bll:N= 
N=^2 
IF(M 
EXTLA 
B91 :FL 

GCTC 
b93:PL 

GOTO 
614:PL 
CC 1 = 
GET F 
POT F 
B7C:; 
fcND ; 
B89:FO 
PUT F 
GET F 
PUT F 
B2C:CC 
D = A(K 
IF(C) 
B4C:A( 
B50:CO 
B60:A( 
enc; 

IF(K- 
B80 :IK 
DO 1 = 
D=A(K 
A(K, I 
CC J= 
B120: A 
ENC; 

enc; 

enc; 



FILt(FTC 



NO 

NC 
KG, 

NO, 



OF 
CF 
IF 
CF 
CF 
CF 



OF 
CF 
CF 

OF 
OF 



F^AT<CG 
RMAT(CO 
-1)-= 
(L2-1.H 
(L1-N2) 
(Nl-Nl) 
T FILE( 
EXTLAo2 
Ml ; 



5F01) EDI 

KCWS OF 

CCLS 

RCwS 

CCLS 

RC^v S 

CCLS 
LUMN(l) , 
LUMN( 1) , 

TEEN GO 
= TFEN 
-i= TFE 

= TEE 
FT06F01) 



T(M,F2,L1 ,L2 ,M,N? ) (-" UXTL.V1 V ) i : 
A*/ 
fi*/ 
X*/ 
X*/ 

e*/ 

B*/ 
7 F( LBI 
1C F( 11 

TO EX" 

GO TO 
N GO Tl 
N GO T( 
EDIT(Dl 



iLNKdOl ,4) ); 

.0,4) ); 

(TLAB63; 

EXTLAB63; 
EXTLAP63; 
"0 EXTLA611; 
)UfMGCfe) <P (EXTLAF301 ) ) ; 



-M2 ) = THEN GO TO E 

E93; 

T FILE(FTC6F01 )ECIT(C 

EXTLAD2 ; 

T FI LE(FTG6F01) EDIT(D 

EXTLAB2; 

T FILE( FT06FC1)EDIT(D 

1 TC MAX(1,N) 5 

ILE(FTO5F0l ) ECIT( ( A(J 

ILE(FT06F01)EDIT((A(J 



XTLAE14; ELSE IF(M1-M2) > C THEN Of 

UMM007 » (o UXTLAB302) ) ; 

UMN.Q06) (R (EXTLAB303 ) ) ; 

UMMCC4) (MEXTLAB3C5) ) ; 

,1) CO J=l TC) MAX( 1,N)) ) (R(EXTLAB 
,1) CO J=l TC MAX(1,N)))(R(EXTLAB 



TO 



13)); 
17) ) ; 



RMAT(COLUMN( 1) ,F(LBLN 
ILE(FT06FC1)EDIT(DUMM 
ILE(FT05F01)EDIT((B( I 
ILE(FT06F01)ECIT((B( I 

K=l TC NAX(1,N); 
,K) ; 

= ThEN GO TC EXTLAB200; 
K,K)=1.CEC ; 

J=l TO MAX(1,N); 
J,K)=A( J,K)/D ; 

N)> = TFEN GC TC EXTLAB130; 

= K+1 ; 

IK TO MAX<IK,N) ; 

,i) ; 

)=ccec ; 

1 TC MAX(lrN) ; 

(J,I) = A(J, I)-(C*A( J,K ) ) ; 



K( 1C),4) ); 

CCS) (R(E>TLAB3C6) ); 

) DO 1=1 TO MAX( 1,N) ) ) (R(EXTLAB89 

) DO 1=1 TO MAX< l f N) ))<R(EXTLABP9 



)) ; 



MA I 0*^0 

^A I C052 
MAI CC53^ 
M4 I rnc^p 

MAI00550 
MAI0056 
MAI00570 
VAI00580 
M AI 0Q5 a 
MAI C0600 
MAI C0610 
MAI0C620 
MAI00630 
MAI00640 
MAI0065 n 
MAIC066H 
MAI0067 r - 
MAI C06FO 
MAIC069^ 
MAIC07C* 
MAI 007 10 
MA 1007 2C 
VAI0073 n 
MAIC074^ 
MAI C075 r 
MAI 0076° 
MAI0077 
MAI00780 
MM00790 
MAI00800 
MAIC0810 
MAI C082H 
MAI CC830 
MAICCP40 
MAI0n85^ 
MAIC0860 
MAI00870 
MAI008S0 
MAI0CS90 
MAICO^CO 
MAI CC C 1C 
MAI00920 
MAIC0930 
MAI00940 
MAICC950 
MAIC0960 
MAIC0970 
MAI C 09 PO 
MAICC990 



■ !r I' 



^i a ix 
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fc>TLAB13C :l H = N-1 ; MAIC1CC0 

DO K=l TO MAX(lflK); MAIOIOIO 

EXTLAB14C: I1=K + 1 ; MAI01020 

CO 1=11 TC MAX(IlfN); MAI01030 

C=A(I,K) ; MAI01040 

A(I,K)=O.OEO ; MAIC105C 

EXTLAB17C:DC J=l TC NAXU,N); MAI01C6C 

EXTLABlfiC :A( J ,K)=A( J,K)-(C*A< J,I) ) ; MAI01070 

END; MAI01080 

END; MAI01090 

ENC; MAIOllOO 

GOTO EXTLA6202; MAI01110 

EXTLAB20 0:PUT F ILE < FTC6 FO 1.) ED IT( DUMMOO 1 ) ( R ( EXTLAB 308 ) ) ; MA I 01 120 

GCTC EXTLAe2; MAIC1130 

fcXTLAB2C2:PUT F I LE ( FT06F01 ) ED IT (CUMM00 2 ) ( R ( EXTLAB307 ) ); MAI 01140 

DC 1=1 TO MAX(lfN); MAI01150 

IPB001I POT FILE(FT06F01)EDIT((A( J, I) DO J = l TC MAX ( 1 ,N) ) ) ( R ( EXTL AB17 ) ) ; MAI01160 

EXTLAB2C1;; MAI01170 

ENC; MAI01180 

EXTLAt400:CC 1=1 TC MAX(1,N); MAIC1190 

X(I)=C.OEO ; MAI01200 

DC K=l TC MX(ltN); MAIC1210 

EXTLAB21:XI) = MI)+A(K,I)*B(K) ; MAI01220 

END; MAI01230 

ENC; MAI01240 

EXTLAB40l:PUT F ILE( FTC6F0 1) EDIT( DUMMC05) ( R( E XTLAB3C4) ); MAI 012 50 

IPB001I PUT FILE(FT06F01)ECIT((X( I) DO 1 = 1 TO MAX( 1,N) )) ( R ( EXTLAB89) ) ; MAI01260 

IPB008I EXTLAB2:STC^; MAI01270 

DISFLAYCSTCP ');STCP; MAI01280 

ENC; MAIC129C 



WARNING MESSAGES 



IPB001I READ CR WRITE STATEMENT 

PL/I ANC FCFTPAN RESULTS MAY DIFFER IN LINE 
C0 7 5,CC76,CC81 ,0C82 ,01 16 ,0126 

IPB008I SERVICE SLBPROGRAMS 

PL/I ANC FORTRAN RESLLTS MAY DIFFER IN LINE 
C127 
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Step 3. Execution of PL/I Program 

A normal compile, link, and go run can be performed, with or without 
the user's cataloged procedure. The following is a sample of the con- 
trol cards when using a cataloged procedure: 

//A 6 JOB 2622, SMITH, MSGLEVEL=1 

// EXEC PL1LFCLG 

//SYSIN DD * 

... Card output from step 2: cards MAI00010 through MAI01290 

/* 

//LKED.SYSIN DD DSNAME=LBLNK,DISP=OLD,UNIT=SYSDA C 

// VOLUME=SER=XXXXXX 

//GO.FT06F01 DD SYSOUT=A ,DCB= (BLKSIZE=129 , LRECL=1 25 , RECFM= VA) 
//GO.FT05F01 DD * 

The seven FORTRAN data cards: DATA0001 through DATA0007 

« • • 

/* 
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The output listed on FT06F01 (the printer specified in the above con- 
trol cards) should read as follows: 



MATRIX A 

4.2150 -1.2120 1.1050 

■2.1200 3.5050 -1.6320 

1.1220 -1.3130 3.9860 

MATRIX B 
3.2160 
1 .2470 
2.3456 

A- INVERSE 

0.2916 0.0833 -0.0467 

0.1632 0.3836 0.1118 

■0.0283 0.1029 0.3009 

SOLUTION MATRIX 
0.9321 
1 .2655 
0.7429 
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INDEX 



Where more than one reference is given, 
the first page number indicates the major 
reference. 

actions, LCP 10 

arithmetic expressions 19 

arithmetic IF statement 23 

arrangement of arrays in storage 14 

ASSIGN statement 23 

assigned GO TO statement 23 

assignment 

statements 21 

statements, arithmetic 21 

statements, logical 21 

BACKSPACE statement 40 

basic symbols, PL/I and FORTRAN 

corresponding 43 

blanjcs within words 16 

BLOCK DATA subprogram 33 

CALL statement 32 

character-string format item 38 

code, h-format 39 

coding examples, form of 15 

comments 16 

COMMON statement 27 

common variables in EQUIVALENCE 

statement 29 

complex constants 18 

computed GO TO statement 22 

conflicts, name, prevention of 13 

constants 

complex 18 

hexadecimal... 19 

integer 17 

literal. 19 

logical 19 

real 18 

CONTINUE statement 25 

control card options 53 

control cards, LCP 54 

control format items 39 

control information 9 

control statements 22 

conversion output 41 

conversion problems 13 

corresponding basic symbols, PL/I and 

FORTRAN 43 

corresponding functions, PL/I and 

FORTRAN 44 

creating the load module, disk 49 

creating the load module, tape 50 

data, literal 39 

DATA initialization statement 33 

data set terminology.... 15 

DIMENSION statement 27 

disk pack, programs on 49 

distribution of the LCP 8,49 

DO statement 24 



DOUBLE PRECISION statement 33 

DUMP subprogram 33 

DVCHK subprogram 33 

elements of the language 17 

END statement 26 

END FILE statement 40 

ENTRY statement 31 

EQUIVALENCE statement 28 

examples, coding, form of 15 

EXEC card options 53 

executing the LCP 52 

executing the PL/I target program 54 

EXIT subprogram 33 

explicit specification statements 27 

expressions, arithmetic 19 

expressions, logical 20 

EXTERNAL statement 32 

factor, scale 31 

form of coding examples 15 

form of LCP substitution names 13 

format item 

character-string 3^ 

control 39 

generalized 39 

hexadecimal 39 

logical 38 

numeric 37 

FORMAT statement 36 

FORTRAN programs to be converted, 

characteristics 10 

FORTRAN and PL/I, corresponding basic 

symbols 43 

FORTRAN and PL/I, corresponding 

functions 4 4 

FUNCTION subprograms 30 

functions 

PL/I and FORTRAN corresponding 44 

statement 30 

LBLNK 51 

general problems in converting to PL/I.. 13 

generalized format item 38 

GO TO statement 

assigned 2 3 

computed -. . . 22 

unconditional 22 

hexadecimal constants 19 

hexadecimal format item 39 

h-format code 39 

IF statement, arithmetic 23 

IF statement, logical.... 24 

IMPLICIT statement 26 

information, control 9 

initialization statement, DATA 33 

input/output statemsnts 34 

character-string format item 38 

control format items 39 

generalized format item 38 
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hexadecimal format item 39 

integer constants 17 

LCP 

actions 10 

control cards 54 

distribution. 8,49 

execution. 52 

general description 9 

notation used in this document... 11 

output listings 10 

performance 11 

restrictions 4 7 

substitution names, form of 13 

language 

elements of 17 

output. 8 

source. 7 

LBLNK 51 

listing 41 

literal constants *... 19 

literal data 39 

load module, creating the disk 49 

load module, creating the tape 50 

logical constants 19 

logical expressions 20 

logical format item 38 

logical IF statement 24 

mathematical function subprograms.... 13,44 

messages 55 

MFT 8 

MVT 8 

name conflicts, prevention of 13 

notation used in this document 11 

NOZERODIVIDE 17 

numeric format items 36 

operating procedures 52 

options 

control card 53 

EXEC 53 

output 

conversion 41 

language 8 

listing 41 

statements 34 

OVERFL subprogram 33 

PAUSE statement 25 

PCP 8 

PDUMP subprogram 33 

performance of the LCP 11 

PL/I and FOBTRAN 

corresponding functions 44 

corresponding basic symbols 43 

PL/I target program execution 54 

predefined specification 26 

prevention of name conflicts 13 

PRINT statement 36 

problems, general conversion 13 

program unit 17 

programs on disk 49 

programs on tape.... 50 

PUNCH statement 36 



READ statement 34 

real constants 18 

restrictions, LCP 47 

RETURN statement 31 

REWIND statement 40 

sample program 8,62 

scale factor 37 

service subprograms.... 33,15 

SLITE subprogram 33 

SLITET subprogram 33 

source language 7 

specification, predefined 26 

specification statements 26 

specification statements, explicit 27 

statement 

functions 30 

numbers 17 

arithmetic IF 23 

ASSIGN 23 

assigned GO TO 23 

BACKSPACE 4 

CALL 32 

COMMON 27 

computed GO TO 22 

CONTINUE 2 5 

DATA 33 

DATA initialization 33 

DIMENSION 2 7 

DO 2 4 

DOUBLE PRECISION 33 

END 26 

END FILE 4 

ENTRY 31 

EQUIVALENCE 28 

EXTERNAL 32 

FORMAT 3 6 

FORMAT, character-string format item.. 38 

FORMAT, control format items 39 

FORMAT, generalized format item....... 38 

IMPLICIT 2 6 

logical IF , 24 

PAUSE 2 5 

PRINT 3 6 

PUNCH 3 6 

READ 3 4 

RETURN 31 

REWIND.. 3 9 

STOP 2 5 

WRITE 3 6 

statements, 

assignment 21 

assignment, arithmetic 21 

assignment, logical 21 

control 22 

specification 26 

statement numbers 17 

STOP statement 25 

storage, arrangement of arrays in 14 

subprogram 

BLOCK DATA 33 

DUMP 33 

DVCHK 33 

EXIT 3 3 

PDUMP 3 3 

SLITE 33 

SLITET 33 

subprograms 
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FUNCTION.... 30 terminology, data set 15 

mathematical function, conversion. .... . 44 truncation, REAL to INTE3ER 21 

service 33 

SUBROUTINE 31 

SUBROUTINE subprograms 31 unconditional GO TO statement 22 

subscripted variables 19 using the function LBLNK 51 

substitution names, LCP, form of 13 

symbols, basic, PL/I and FORTRAN variables, subcripted 19 

corresponding 43 variables, common, in 

system requirements 8 EQUIVALENCE statement 29 

tape, programs on 50 words, blanks within 16 

target program execution 54 WRITE statement * 36 
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